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AN OVERVIEW 


The provision of low cost, high resolution colour graphics is prob- 
ably one of the most exciting and challenging features of popular 
home computers such as the TS 2048 or 2068. With these features 
a whole new range of exciting applications are opened up for the 
adventurous programmer. Applications which involve the true 
visual display of concepts, ideas, and fantasies. In this book | hope 
to show you how to realise some of the colossal graphics display 
potential possessed by your machine. 


To stimulate your imagination let's first look at some of the possi- 
bilities presented by a high resolution colour graphics computer. 
Perhaps the most obvious application is in simulations, and the 
most obvious use of simulations is in education. There is an old 
saying when trying to explain a concept, that a picture is worth a 
thousand words. This is particularly true in all science related 
subjects. Relationships can be shown between two or more math- 
ematical functions displayed as curves on the screen, or a math- 
ematical process such as differentiation can be shown graphically 
taking place. In chemistry three dimensional graphics can be used 
to show molecular structures and bonding. A chemical process can 
be displayed and the various reactions can be simulated by the 
computer. 


Some of the best examples of simulations involving high reso- 
lution colour computer graphics come from physics. The teacher 
has the ability to easily display the concepts of mechanics, such 
as Newton's laws, the trajectory of a missile or planetary motion. 
Magnetic and electrostatic fields and their interrelationship can 
easily be displayed, as can the path of light through optical systems. 
In electronics the computer can be used to simulate a circuit and 
the high resolution graphics can be used to display the circuit on 
the screen. | 


Computer games — which are in the majority of cases just a 
special fun form of simulation — are obvious candidates for 
improvement by the use of high resolution colour graphics dis- 
plays. Although the TS 2000 series still cannot match the incred- 
¡ble real time and very realistic displays found on many of the best 
arcade games, the quality of the home computer's graphics does 
allow for the programming of some fantastic display based games. 
In all these games programmes the graphics display is augmented 
by the sound generation ability of the TS 2000 series. The range of 
computer games is enormous, ranging from arcade games like 
Space Invaders or Packman to chess programmes with a high 
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quality display of a chess board and all the pieces, or the fantasy 
games like Adventure which can be endowed with some very 
interesting graphics. 


Computer art is an application for high resolution colour com- 
puter graphics in which a growing number of people are becoming 
increasingly interested. The artist uses the graphics display as 
a canvas on which the picture or design is drawn either in a single 
colour or using all the colours available on the computer. The 
picture is created by using either a specially written program 
and an input data base to generate the displays, or a light pen or 
joystick to interactively paint the picture on the screen, much as 
one would by using a paint brush. Such displays could of course 
be either a static one off picture or an animated sequence. The 
generation of animated computer art displays is a subject of 
increasing interest to creators of cartoon films; this should be 
within the capabilities of the TS 2000 series. An example of such 
graphics was shown in the film "Star Wars’ in the scene where the ` 
rebel pilots are briefed on the workings of the ‘Death Star’. Full 
length feature animated films generated by computer can be 
expected within the next year. 


An important application for graphics simulation is using three 
dimensional graphics software to aid the designing of buildings or 
engineering structures. This is known as CAD, or Computer Aided 
Design, and although in commercial applications it is confined to 
very large fast computers it is quite possible to perform most of 
the CAD operations on machines such as the TS 2000 series. The 
designer builds up a model in the computer memory and, by using 
this data base, can view the structure from any angle or even go 
inside. Perspective, light and dark shading, surface texture and 
colour of solids can all be emulated by such software, some 
examples of routines to do these functions are given in the last 
section of this book. Another variation of this type of application 5ا‎ 
used in flight simulators, where the computer, by using a pre- 
viously entered data base, creates a simulated display of a piece of 
terrain or an airfield as the person using the simulator would see it 
from any position in three dimensional space. In a flight simulator 
the position of viewing would depend on how the ‘pilot’ moved his 
controls. Simulated landings and take offs can thus give a visual 
feedback to the pilot through the use of such computer graphics. 
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COLOUR 
An introduction to the colour commands on the TS 2000 series. 


The computer screen is organised as 24 lines of 32 characters, 
and the character and background colour of each one of these 768 
character spaces can be individually programmed to one of the 
eight possible colours which can be displayed by the computer. 
The two colours associated with each character space are the fore- 
ground or character colour, this is referred to as the INK colour, 
and the background colour or PAPER. In the normal power up 
mode the INK colour is black and the PAPER colour white. 


There are eight different colours, including black and white, 
which can be displayed, they are as follows: 


0 — black 

1 — blue 

2 — red 

3 — purple or magenta 
4 — green 

5 — pale blue or cyan 
6 — yellow 

7 — white 


These colours are produced on a colour TV by mixing just three 
primary colours — blue, red and green. Thus magenta, which is 
colour 3, is produced by mixing colours 1 and 2 — blue and red. 
Likewise colour 5, cyan, is a mix of colours 1 and 4, and colour 6, 
yellow is a mix of colours 4 and 2. From this you can see that the 
colour number is in fact the sum of the primary colours required to 
produce that colour thus white which is produced by having all 
three primary colours mixed has colour number 7 or colours 1 + 2 
+ 4. The number associated with each colour on the above list is 
important since it is used in the colour commands to designate that 
colour. 


The INK command is used to set the character or foreground 
colour of characters subsequently displayed using PRINT 
commands starting at the current cursor position. The command: 


INK 4: PRINT “ink colour green” 
will print the statement “ink colour green” on the screen starting at 


the current cursor position in green characters on the existing 
background colour (normally white) of the screen. To show the 


range of colours try the following program: 


10 FOR Q = TO 7 

20 INK Q 

30 PRINT “ink colour number”; Q 
40 NEXT 0 


The PAPER command is identical to the INK command except 
that it sets the background colour for the printed characters. Thus 
the command: 


PAPER 4 : PRINT “paper colour is green” 


will display the statement “paper colour is green” starting at the 
current cursor position and using the existing ink colour (normally 
black). The following short program shows the 64 different com- 
binations of INK and PAPER colours which can be obtained using 
the two commands: 


10 PRINT “01234567 ink colours” 
20 FOR O = 7 

30 FOR Z: PAPER Q 

50 PRINT “*”. 

60 NEXT Z 

70 PRINT “paper colour”; O 

80 NEXT Q 


Besides the foreground and background colours there is also the 
colour of the border around the screen display area. This border 
can have its colour set by use of the BORDER command followed 
by one of the eight colour code numbers. Thus the command: 


BORDER 5 
will set the screen border to a cyan colour. 

The original ink or paper colours can be retained for a character 
by setting the colour value to 8. This means that the characters 
printed following the command are “transparent”, with the 
previously defined colours on the screen being used to display the 
new characters. Thus if the command 


PAPER 8 


is executed then the paper colour will be left as currently displayed 


on the text following the cursor. However, the ink colour will be 
that defined in the previous statement. Similarly the command: 


INK 8 


will leave the ink colour unchanged but the paper colour changed 
to that defined in the previous colour definition statement. Both 
INK 8 and PAPER 8 can be used together to leave all colours 
unchanged. 


Contrast between some of the colours is very poor. For example, 
it is virtually impossible to read a character which has an ink 
colour of cyan and a paper colour of green. To overcome this 
and ensure enhanced character contrast there is an extra character 
code value. By using the colour code number 9 after either the INK 
or PAPER commands. This sets the colour used with either the 
defined INK or PAPER colour to a colour with the maximum con- 
trast. Thus if the colour is dark (eg. black, blue, red or magenta) 
then the complementary colour will be made white or if light then 
the complementary colour will be black. 


There are then a series of commands which can be used to 
control the way particular characters are displayed without actually 
altering the dot pattern or colours of each character space. The 
first three of these commands are BRIGHT, INVERSE and FLASH. 


The BRIGHT command will display the background colour of the 
printed string following the BRIGHT statement with an enhanced 
brightness. This means that it will stand out in relation to other dis- 
played strings which are used without the BRIGHT command. The 
number following the BRIGHT command determines whether it is 
turned on or off, a 0 and the “bright” is off and 1 the “bright” is on. 
The following is an example of a command using BRIGHT: 


10 PRINT INK 0; PAPER 7; BRIGHT 1; “this is in bright mode” 
20 PRINT INK 0; PAPER 7; BRIGHT 0: “the bright mode is 
turned off” 


The INVERSE command simply reverses the foreground and 
background colours for the characters in the printed string after the 
INVERSE command. It does this without changing the dot pattern 
printed on the screen. To turn the INVERSE command on it should 
be followed by a 1, and to turn it off then it should be followed by a 
0. The following is an example of the INVERSE command: 
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10 PRINT INK 0; PAPER 7; INVERSE 1; “characters are 
inversed 、 

20 PRINT INK 0; PAPER 7; INVERSE 0; “characters returned 
to normal” 


The FLASH command is used to set a following character string 
to flash on and off between the normal screen display and the 
inverted display produced by the INVERSE command. The rate of 
flashing is about 3 times per second. This command like the 
previous two commands is very useful in drawing attention to a 
displayed statement or command. The following is an example of 
the FLASH command: 


10 INPUT FLASH 1; INK 1; PAPER 7; "input data’’;N 


This computer has a very useful overprinting command called 
OVER which allows one to create new characters by overprinting 
one or more characters over an existing character. The most 
obvious use of this command is to add an accent to a character. 
Normally when a character is displayed whatever is already written 
in that character space is obliterated, but in the OVER command 
the existing character is retained and the dots of the new character 
added. As with the previous commands following it with a 1 will 
turn it on and a 0 will turn it off. The following is an example of the 
OVER command: 


10 OVER 1 
20 PRINT “a”; CHRS8; 


note: the CHR$8 causes the cursor to back up one character space. 


All the commands which control the attribute of a character can 
also be set using the character codes which represent the com- 
mand thus the following commands and codes are identical: 


CHR$ 16 — INK command 
CHR$ 17 — PAPER command 
CHR$ 18 — FLASH command 
CHR$ 19 — BRIGHT command 
CHR$ 20 — INVERSE command 
CHR$ 21 — OVER command 
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ADVANCED COLOUR 


Each one of the 768 character positions on the computer screen 
can be assigned two different colours, a foreground character 
colour and a background colour. These two colours can be sel- 
ected from the eight different colours which can be displayed. To 
set the background colour for a character the PAPER command is 
used and for the character colour the INK command, both are 
followed by the required colour number. These colour values, or 
attributes as they are called in the Sinclair manual, are stored in a 
768 byte section of memory stretching from location 22528 to 
23296. In the eight bits of each byte in the attribute table are stored 
the ink and paper colour values plus two flags which indicate if the 
displayed character is in the normal bright or flashing mode. They 


are stored as follows: 
la lo روم و‎ 


FLASH [BRIGHT | PAPER | 


To set the INK colour for a character, a binary value between 0 
and 7 is placed in the first three bits of the attribute memory byte 
corresponding to that character. Similarly to set the PAPER colour 
a binary value between 0 and 7 is placed in bits 3,4 and 5 of the 
appropriate attribute byte. 















A characters colours can be set by using the POKE command to 
put the required colour values into the attribute RAM byte cor- 
responding to the displayed character. It is much easier however, 
to use the INK and PAPER commands. A knowledge of how the 
colour values are stored is necessary if you wish to use the ATTR 
(line, col) command, this returns a value equal to the contents of 
the attribute memory byte at the assigned character coordinates. 


Although there are only eight different colours, interesting 
coloured displays can be produced by a careful combination of 
foreground and background colours. The background PAPER 
colours can be used to give the main coloured display and the fore- 
ground INK colours can be used for the high resolution and text 
details of the display. An example of this kind of display is shown in 
the program MAP. The use of colour in high resolution graphics is 
unfortunately not very effective. The reason being that colours can 
only be defined on an 8 x 8 dot character resolution. The colour of 
an individual dot can thus not be changed without changing the 
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colour of all the other dots within the character space containing 
that dot. Similarly the background PAPER colour can only be 
defined on a character space resolution. One of the results of this 
limitation is that it is almost impossible to have two intersecting 
high resolution lines of different colours. 
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RANDOM COLOURS 
DESCRIPTION 


Background — PAPER — colours can be used to fill blocks of the 
screen with different colours thereby generating interesting 
effects. This program shows how the paper colour command can 
be used to generate colourful dynamically moving patterns. The 
display consists of a dynamically moving point at which are plotted 
squares of different colours, the movement of the point and the 
colour selection are random. The resulting display is a changing 
pattern of variously shaped different coloured blocks. 


RUNNING THE PROGRAM 

Since no parameters are input by the program, simply type RUN 
and watch the program display a constantly changing coloured 
pattern. 


PROGRAM STRUCTURE 


50 draw border around screen using subroutine at 400 


110 initialise random seed 
120 set starting point on screen 


160-170 set random variables for colour and number of charac- 
ters of same colour 

210 set random variable for movement direction 

220-260 move in one of four directions 

280-310 check character position is within screen boundary 

350-360 plot coloured square using a ‘space’ character 

400-460 border drawing subroutine 


14 


2 
2 
a 
18 


REM RANDOM COLOURS 
BEN FFFEFFFFEFTFIFFIFEFTFFTFTEFFF FT 


REN the routine generales a 


moving Colour dispL‏ ا و 
> = 


28 
sa 
40 


REM 
REM 
REM draw border around disp 


GO SUB sea 
REM 


REM set constants 
RANDONIZE 
LET 3=18: LET b=2@ 


REM randomize colour and nu 
of characters plotted varia 


C=INT (RND+9) 
n= INT (RND #20) 


main character plotting 


x=a TO n 

LET d=INT (RND #4) 

dz THEN LET a=3+1 
IF d=zi THEN LET 3=3-1 
IF dz2 THEN LET b=b-+i 
If da3 THEN LET k=h-1 
REM 

REM within bounds? 
REM 


IF b»z30 THEN LET ۵ 

IF b«z1 THEN LET b=1 

IF a>=20 THEN LET a=20 

PP Vidua THEN LET a=1 

REM Plat coatoufed character 
REM 

PRPER c 

PRINT AT Babi“ " 

NEXT x 


GO TO 168 
REM border drawing subfoutai. 


0,0 
255,0 
ae, 2 2 
o, -175 
RETURN 
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MAP 
DESCRIPTION 


Background colours can very effectively be used to fill blocks of the 
screen with different colours to define outline shapes. High 
resolution or character plotting can then be used to put details on 
the outline. This program shows how this can be done and to 
illustrate the technique draws a map of North America with 
appropriate text legends. The background colours are set by 
POKEing the correct colour value into the colour attribute memory 
(this is 704 bytes long and starts at location 22528). In this program 
only two outline colours are used and for this reason the plotting is 
divided into two sections, one for each colour. The display is built 
up from lines or single characters of colour. The data for each line 
displayed is stored as data statements and consists of sets of three 
values — line number, column number and number of characters 
from that position to be plotted continuously on the line. If the 
display was to be plotted in many different colours then an extra 
colour parameter should be added to the data tables. 


RUNNING THE PROGRAM 

Since no parameters are input by the program simply type RUN 
and watch the program display a map of North America on the 
screen using different colours for each country. 


PROGRAM STRUCTURE 


100-160 fill the screen with cyan colour to act as a background 
to the display 


180 jump to border drawing subroutine at 1000 
200-280 plot the map of USA in green using data from table lines 
310-370 


300-370 data table for drawing map of USA, note that the data is 
stored as a sequence of three values: line, column and 
length of block 

500-570 plot the map of Mexico and Canada in white using data 
from the table in lines 600-700 

600-700 data table for plotting Mexico and Canada 

900-960 put legends on map 一 note: make sure that the paper 
colour for the text or high resolution is identical to that 
of the background colour already plotted 

1000-1060 border drawing subroutine 
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1 
2 
3 
10 


REM وج وچ الا‎ ESSE EERE جح‎ RES 
REM this Program draws a co 


Loured map of North America 
a REM 


30 R 


ioo 


aa 


“aza 
495 
508 


in whit 
5805 R 


REM set map background colo 


REM draw border around scre 
REM 

GO SUB 210060 

REM 

ne; draw the USA in green 


O READ r,s,tL 


IF 0۵ 7 THEN GO TO 9 
LET p=228528+ (r 232) +5 

FOR q=1 TO L 

POKE p+q,32 

NEXT q 

REM 

GO TO 210 

REM 

REM data for Plotting USA 
REM 


DATA S.286,1,6,5,4,6,25, 
DATA 7,5,14,7,24,53,8,4 “le, a 


DATA 9,4,.17,9,22,4,10,4,21 
DATA 11.4.20.12 .4,58.13'8 5,1 


HE 2»6,17,16,10,13, 17,12‏ را 

"6515 18.12,3,18,22,2,19,23, 

DATA 2۵۵ , 2 ۵0۵ , 0۵ 

REM 

AA draw Canada and Mexico 
M 

READ r,s,L 

IF r180 THEN GO TO 9 

LET p=22528+ (fF #32) +S 

FOR q=2 TO L 

POKE ۳ ۹ , 56 

NEXT q 

GO TO 510 

REM 

REM data for Canada and Mex 
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Gad 
505 
610 


REM 
DATA 
DATA 


u,2,24, 1,3,24 


2,4,24,3,4,23,4,4,22 
و سو یس سو فا O‏ وو سا 


کو 
,93,21‚ 


620 DATA 16,6,4.17,6.1,17,8,5,.1 


5.7, 
630 


18 


1.18,9 
DATA 


# & 


9,6,20,39,6 


a 
DATA 108.100.180 
REM 

+ put names on map 


PLOT 
DRAN 
DRAW 
DRAW 


8,0 


3.12; "CANADA" 
208,10: "MEXICO" 


13,14; “USA” 


border subroutine 


255,0 
ae, 175 
-255,0 
DRAW ۵, - 1 5 
RETURN 


RAINBOW 
DESCRIPTION 


This program demonstrates how colours can be used with the high 
resolution plotting commands plus some of the limitations of high 
resolution colour. The display is a rainbow of four different col- 
oured semicircles — red, yellow, green and blue. Each coloured 
semicircle is composed of three high resolution half circle plots. As 
the program stands the display produced has the four arcs each 
with a different colour, but notice that the gap between each arc is 
quite wide, try reducing the width of this gap and the colours of 
each arc start to break up. The gap can be reduced by changing the 
step value in line 200. The reason for this problem is simply that the 
colours are defined on a character square basis, trying to display 
two high resolution points of different colours in the same char- 
acter space is impossible, the result is that the colour of the first 
plotted point will be changed to that of the second as soon as the 
second is plotted. 


RUNNING THE PROGRAM 
This program requires no input parameters, therefore simply enter 
RUN and watch the computer draw a coloured rainbow on the 


screen. 


PROGRAM STRUCTURE 


90 draw border around screen using subroutine at 500 
110 coordinates of semicircle centre 

120 start and end angle of semicircle 

130 dot spacing in drawing semicircle 

140 - 160 convert angles to radians 

200 loop to draw four coloured arcs 

210 get arc colour from data table 

220 set to plot in that colour 

240 loop to draw three lines in each arc 

250 - 330 draw arc 

410 colour data stored as colour values for each arc 


500 - 560 border drawing subroutine 
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mann. L3 —- 
er see LEIA 
po 


J REM RAINBOW 
2 REM *=* x * 3 3 x s X xx x X x xx X £ ¥ 
3 REH 
l REH Program wil draw a calo 
ured rainbou ۱ ۱ 
20 REM on the screen using hig 
resolution _ 
30 REM platting. 
sa REM draw border around scre 
en 
sa GO SUB Sea 
95 REM 
iga REM set constants 
1Q5 REM 
110 LET xo=180: LET yo=sa 
120 LET pi=1: LET ۳۵ - 1 
128 LET deza 
P=dp+3. 141597180 
168 LET دم‎ 6 
= XO. wi Wa 
128 REN gop رسک‎ 
tou to 
P تم کت‎ ۲ draw four cotou 
300 FÒK 
r=38 TO 860 s 
214 READ c TEP 9 
228 INK 
225 REM 
2584 REM three lines to each coL 
nur 
235 REM 
248 FOR q=1 TO 3 
258 LET r=r+q 
268 FOR p=p1 TO pè STEP dp 
270 LET x=r=*COS (p) 
258 LET y=raSIN ip) 
224 LET x=xa+x 
saa LET y=yQ+y 
3108 PLOT x.y 
3284 NEXT p 
2234 NEXT q 
340 NEXT r 
3994 REM 
404 REM colour data for rainbow 
405 REM 
418 DATA 2,6,4.1,7 
300 REM border drawina subrouti 
ne 
aie PLOT a.a 
se DRAW 255,0 
538 DRAW 3,175 
544 DRAW -255,8 
559 DRAW ®,-175 
see RETURN 
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FAN 
DESCRIPTION 


This is the last program in the section on colour and it simply 
produces a pretty changing and colourful pattern using high resolu- 
tion colour plotting. The pattern is built up from different coloured 
high resolution lines and can be varied by changing the initial 
variable values in line 110 or by inserting extra loops into the main 
display loop — lines 140 to 210. The colour of each plotted line is 
set by a random value between 1 and 7 in lines 350-370. The lines 
are drawn by the subroutine 400 to 510. 


RUNNING THE PROGRAM 
Since no parameters are input by the program, simply type RUN 
and watch the pattern develop on the screen in constantly 


changing colours. 


PROGRAM STRUCTURE 


50 set background colour 

110 initialisation variables — change for new pattern 
120 initialise random seed 

130 set starting ink colour for first line 


140-220 main display loop — each of the four sub loops in this 
section draws a different part of the pattern, adds more 
sections or change values to change patterns 

300-350 set values for line draw subroutine 

360-370 set new line drawing colour 

400-510 line drawing subroutine 

600-660 border drawing subroutine 
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1 REM FRN | 
2 REM ۶ ۶ جرج جع جع اج‎ yk wx x ¥ x £ 
3 REM 
ig REM this program draws a 
za REM coioured rotating fan 
234 REM 
44% KEN set background cë. Gu r 
Seu PAPER 7 
6@ REM 
"a REM draw border around secre 
m 
Se GO SUB 608 
2328 REM 
18Q REM set up variobies 
118 LET x=: LET y=2: LET 4225: 
LET z=@ 
128 RANDOMIZE 
13084 INK 2 
133 REM 
135 REM main Loop 
13? REM 
140 FOR X=S TO 250 STEP? 4 
158 GO SUB 380: NEXT x 
1680 FOR y=5 TO 178 STEP 4 
i7@ GQ SUB 300: NEXT y 
1388 FOR x=25354 TO S LITER -4 
128 GO SUB 388: NEXT x 
eod FOR y=178 TO 5 STEP -4 
la SO SUB 384: NEXT u 
eee oco TO ase 
298 REM 
388 REM draw Line and set ink c 
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REM 

LET xb=25@-x: LET ub-1i170-u 
LET xe-x: LET uec-u 

GO SUB 409 

LET z=23+1: IF z»-4 THEN LET 


LET 3=INT (RNDx SWA) 
LET C=INT (RNDx7) 
INK c 

RETURN 

KEM 

REM draw line 

LET a=xe-xb 

LOT bzue-ub 

LET qg4=56R tazsxa+`b+xbi 


f سے‎ 


ty 
` 
s 


"ll 

O 

2) 
IÉ X rei a 


x اا‎ We 
“ عا‎ 2 Ow 
++ 


Comm Y 
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HIGH RESOLUTION DISPLAYS 


Any screen display by the computer, whether graphics or text, is 
built up from small dots known as pixels. The screen is 256 pixels 
wide and 176 pixels deep. The dots are formed as the electron 
beam which scans the television tube turns off and on, when it is 
on it excites the phosphor coating of the screen thereby generating 
a bright point of light. In the normal text mode each character is 
made up from an 8 x 8 square of dots. 


A section of memory, the display file, is used to store the state of 
each dot on the screen. A ‘0’ bit in memory signifies that the dot is 
displayed in the background colour and a '1' that it is in the 
foreground INK colour. In the text display mode the data for each 
character is obtained by the system software from a character data 
table in the operating system ROM. This is where the data for each 
of the displayable characters is stored, or if user definable 
characters have been created then the data is obtained from the 
RAM area allocated to storing these characters. 


The display file, a section of the memory, is used to store the state 
of each dot on the screen. ‘0’ bit in memory signifies that the dot is 
displayed in the background colour and ‘1’ that it is in the 
of an 8x 8 square of dots, and the data on these 64 dots can thus 
be stored in 8 bytes of memory, one byte for each row of dots. As 
the TV tube's electron beam scans from left to right repeatedly 
from top to bottom it builds up the 32 characters in each row one 
row of dots at a time. The data of each character is therefore not 
stored together in memory as eight bytes but at intervals 32 bytes 
apart. The display file can thus be divided into blocks of 256 bytes 
— this is the memory required to store one character line of 
display. The full screen display is further divided into four sections, 
the first block comprises lines O to 7, the second lines 8 to 15, the 
third lines 16 to 23 and the fourth contains just line 24. The reason 
for this is associated with scrolling and the protection of line 24 
which is used for command displays. 


Obviously one could display a point on the screen by using the 
POKE command to set the required bit in the display file, but the 
calculation of the required address makes this a slow and cumber- 
some operation. This method would be employed if a machine 
code was being used to generate the display, but in Basic it is far 
easier to use one of the Basic commands provided. There are four 
graphics commands in Basic: — 
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PLOT x, y — this plots a single pixel at the specified x and y 
coordinates. 


DRAW x, y — a straight line is drawn from the last plotted point 
to a point specified in the coordinate parameters following the 
DRAW command. The problem with the DRAW command is that 
it is relative to the last plotted point rather than using absolute 
coordinates. The DRAW command thus obtains the absolute end 
coordinates of the line by using the last plotted point as the 
beginning coordinates and adding to these the relative offset 
coordinates following the DRAW command. A further complica- 
tion is that in order to determine whether the end of the line 5ا‎ 
closer to the origin than the last plotted point then the relative 
coordinates can be negative. For these reasons most of the 
programmes in this book use a more flexible line drawing sub- 
routine. 


CIRCLE x, y, r — this command draws a circle of radius r, and 
with centre coordinates x, y. 


POINT (x, y) — the POINT function will return a value of 1 if the 
pixel at the specified coordinates is the ink colour and a O if it is the 
paper colour. 


Any of the above commands can be used in conjunction with the 
INVERSE command to erase a dot, line or circle. The INVERSE 
command simply sets the pixel to the paper colour thereby erasing 
it. The command to erase a pixel is thus: 


PLOT INVERSE 1; x, y 
One point to note is that to erase a line drawn using the DRAW 


command, the line must be erased by the DRAW INVERSE com- 
mand in the same direction as the line was originally drawn. 
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BORDER 
DESCRIPTION 


This simple program is probably one of the most frequently used 
programs in this book. This is because putting a thin border around 
the screen display area helps to neaten the display and draw the 
eye's attention to the text or display within the border. The routine 
is very short and simply draws four lines, two horizontal and two 
vertical. Starting at the bottom left hand corner of the screen, each 
line having as its starting point the end of the previous line. 


RUNNING THE PROGRAM 


This program requires no input parameters, just type RUN and it 
will draw a border around the screen. 
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RECTANGLE 1 
DESCRIPTION 


This routine is a natural extension of the program BORDER. 
Instead of just drawing a border around the screen, this routine will 
draw a border or box of any size and at any location on the screen. 
The program is in two sections, the first inputs the starting position 
of the bottom left hand corner of the box plus its height and width. 
These input variables are then checked to ensure that they are 
within the limits of the screen display area, ie: that the user is not 
trying to draw a box which extends over the edge of the screen. If 
the input variables are outside the limits then they are set to either 
the maximum or minimum default values. The second part of the 
program starts at line 270 and draws the box. To make the display 
neater a border is drawn around the screen display area by the 
subroutine at line 400. 


RUNNING THE PROGRAM 


This program requires the input of two pairs of parameters, the first 
pair are the X and Y coordinates of the bottom left corner of the 
rectangle. The second pair of values are the height and width of the 
rectangle. 


PROGRAM STRUCTURE 


40-50 set colours 

120 draw border around screen using subroutine at 500 
160 input X and Y coordinates of bottom left corner 
190 input height and width of rectangle 


230-300 check that the rectangle lies within the limits of screen 
400-470 draw rectangle 
500-560 border drawing subroutine 
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RECTANGLE 1 
$ £ 3 چو‎ NO 3 3 $ LE X X NEO ME E X 3 


variable size rectangle 
drawing routine. 
set colours 


ER ۶ 
REM draw border around 


REM corner coordinates of 


REM rectangle. 

INP x ر‎ g 

REM input rectangle height 
REM and width. 

INPUT h,w 

REM check input variables 
REM re within limits of 
REM maximum Screen size. 
IF x>254 THEN LET x=254 

IF ×ر‎ 4۸ THEN LET x=2 

IF u»174 THEN LET y=174 

IF y<«A HEN LET y=1 

IF w+x>255 THEN LET wz255-x 
IF ی و‎ KAZ THEN LET ( یات کار ڑے‎ 
IF we THE LET w= 

IF h THEN LET hz 

REM routine to draw 

REM rectangte. 

PLOT x.y 

DRAW w,G 

DRAW @,h 

DRAW -w,e 

DRAW @, -h 

GQ T 160 


RECTANGLE 2 
DESCRIPTION 


This is a variation of the program RECTANGLE 1, the difference is 
that it is the coordinates of the centre of the box which are input 
rather than the bottom left coordinates. The two programs are 
virtually identical except for the addition of lines 270 to 310 which 
simply convert the centre coordinates to the bottom left co- 
ordinates. Using the coordinates of the centre of a displayed shape 
is the conventional method of positioning a shape on the screen. 


RUNNING THE PROGRAM 
This program requires the input of two pairs of parameters, the first 
pair are the X and Y coordinates of the centre of the rectangle. The 


‚second pair of values are the height and width of the rectangle. 


PROGRAM STRUCTURE 


` 40-50 set colours | 
120 draw border around screen using subroutine at 500 
160 input X and Y coordinates of rectangle centre 
190 input height and width of rectangle 


230-300 — check that the rectangle lies within the limits of screen 

340-370 convert centre coordinates to bottom left corner co- 
ordinates 

400-470 draw rectangle 

500-560 border drawing subroutine 
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RECTANGLE2 
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wariable size rectangle 
Y routine. 

Set colours 

INK 2 
PAPER 7 

REM draw border around 


REM screen. 
GO SUB Sea 


te 
ectangle height 
th. 

REM check input variables 


REM are within timits af 
En maximum screen Size. 


F x»254 THEN LET x=254 

IF (د‎ ٩1 THEN LET x= 

IF y»174. THEN LET uzi74 

IF 1؛ لا‎ THEN LET yvy=i ۱ 
IF W+X 55 THEN LET w=2SS-x 
IF مایا ای مو‎ THEN LET h=175-y 
IF الا‎ THEN LET w= 

IF h«& THEN LET hs) 

REM convert centre 

REM cordinates to bottom 
REM left corner coordinates 
LET pzw^ 

LET Qchr2 

LET xzx-p 

LET y=y- 

REM routine to draw 

REM rectangle. 

PLOT x, 

DRAW w. 

ط رها DRAN‏ 

GO TO 160 

REM border drawing routine 
PLOT 8,0 

DRAW 255,8 

DRAW 8,175 

DRAW -2585,0 

DRAN a,-1%5 

RETURN 


35 


RECTANGLE 3 
DESCRIPTION 


A rectangle can also be generated from two sets of coordinate 
points, these points being the two diagonally opposite corners of 
the rectangle. It should be noted, however, that like the previous 
two rectangle drawing routines this program will only draw a 
rectangle with sides parallel to the X and Y axis. 


RUNNING THE PROGRAM 


This program requires the input of two pairs of parameters, the first 
pair are the X and Y coordinates of the bottom left corner. The 
second pair of values are the X and Y coordinates of the top right 
corner of the rectangle. 


PROGRAM STRUCTURE 


40-50 set colours | 

120 draw border around screen using subroutine at 500 
160 input X and Y coordinates of bottom left corner 
190 input X and Y coordinates of top right corner 


230-300 — check that the rectangle lies within the limits of screen 
400-470 draw rectangle 
600-560 border drawing subroutine 
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BARCHART 
DESCRIPTION 


This program shows one application for a routine to draw a variable 
sized rectangle. The program draws a barchart using the data in the 
data statements in lines 100-160. The program repeatedly draws 
boxes of variable height until the data statement containing zero is 
reached, whereupon the routine terminates. The X, Y and W 
values are set as constants at the beginning of the program. The Y 
and W values will stay constant but the X value is incremented by 
W for each bar displayed. By changing the constants the position, 
size and maximum number of bars displayed can be varied. 


RUNNING THE PROGRAM 
This program requires no input parameters, simply type RUN and it 
will display a barchart on the screen using the values in the data 


statements. 


PROGRAM STRUCTURE 


50 draw border around screen using subroutine at 500 
80-90 set colours 

110 position of start of first bar from left border edge 
120 height above bottom border 

130 border width 

150 read bar height from data table 

200-250 draw bar 

270 calculate bottom left corner of next bar 


340-420 data for bar heights, table terminated by 999 
500-560 border drawing subroutine 





مھ rn‏ یات ری تا و A A A‏ 





1 REM BARCHART 
2 REM xxsexxXxikGKGkioÉdÁxxXiEk 
13 REL 
Program o draw a 
20 REM barchart using the 
no ia REM rectangte drawing rauti 
ae REM draw border around scre 
SA بات‎ SUB See 
ZA REM set colours 
S@ INK A 
5 ۵ PAPER 7 
1@@ REM set censtants 
140 LET x=18: REM start af Fars 
t bar from left border edge 
120 LET y=14: REM height above 
bottom border | 
2138 LE w-20: REN bas width 
140 REM get bar height data 
150 READ h 
16808 IF ط‎ < ۵9۵ THEN STOP 
98و29‎ REM draw bar 
246 PLOT x,y 
228 DRAW uu, aq 
23084 DRAN a,h 
2448 DRAW -w.ü0 
2 85۵ REM next bar 
270 LET x=x ۷اخ‎ 
288 GO TO 284 
zaa REN data for height of each 
310 REM har in barthart. value 
SAR REM af AAR indicates end ar 
35m REM data. 
aaa DATA 5 
3564 DATA S 
پت‎ LATA 120 
3704 DATA sa 
BBQ DATA ied 
aan DATA 110 
480 DATA 126 
414 DATA EI 
#20 LATA 999 
Sal REM draw border around Sacre 
en 
Sid PLOT G, 
B20 DRA 255,0 
530 ORAR 0,175 
S40 DRAN -255,a 
SSA DRAW @, وس‎ 
SEQ RETURN 
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BLOCK 
DESCRIPTION 


The POINT plot command is the most useful of the high resolution 
commands and can be used in a wide range of applications. A very 
simple application is shown in this programme, it fills a rectangular 
block of the screen with dots, the density of the dots being 
variable. This can be used in a range of applications from the next 
program — BARCHART, to simple shading of areas of the screen. 
By careful use of ink and paper colour the creation of new colours 
— red dots on a yellow background will at a distance give the 
appearance of an orange colour. 


RUNNING THE PROGRAM 


The program requires the input of five variables. The first two are 
input in line 110 they are the X and Y coordinates of the bottom 
right corner of the block. The next two are input in line 120 and 
they are the width of the block and the height of the block. The 
height and width are both parallel to the Y and X coordinate axis of 
the screen, it is impossible using this routine to draw a block at an 
angle to the screen axis. The last variable is input in line 130 and is 
the spacing between dots in the block, both vertical and horizontal. 
If the dot spacing is 1 then a solid block of dots is drawn, a dot 
spacing of 2 will put a space between each dot, and similarly for 
other dot spacing values. Note all these values are the number of 
pixels, either from the bottom left corner of the screen or over the 
specified distance (remember one character space is 8 pixels high 
and 8 pixels wide). To vary the block colours change the values in 
lines 60 and 70 of the program. 


PROGRAM STRUCTURE 


60-70 set colours for plotting 

90 draw border around screen using subroutine at 300 
110-130 input parameters for block size and position 
210-290 block drawing routine 

300-360 border drawing subroutine 
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1 REM BLOCK | 
a وھ‎ 3 3 * 3 3 3 33 £ 3 X 3 X X X £ EFF FF 


RE 
YQ REM program to draw a recta 
ngutar 
i 2 EM block of variable densi 
y 


= h dots on the screen 
Se REM set colours 
K a 


ZA PAPER 7 
50 REM draw border around scre 


sa GO SUB San 
REM 


1044 REM input black drawing par 
ameters 

1QS5 REM 

33189 INPUT x,y: REM bottom left 
Corner coordinates 

128 INPUT w,h: REM width and he 


o an ds: REM dot spacina 
288 REM draw black 
10 LET xb=x-ur2 


220 LET xe=x+4wr2 
230 LET ایا سے سوہ لب‎ 
+ 


240 LET YyYe=u “Ë 

250 FOR x=xb TO xe STEP ds 
268 FOR y=yb TO ve STEP ds 
27% PLOT x.u 


Saa REM draw barder 
34S REM 

19 PLOT 0,6 

gQ DRAW 255, 
3G DRAW Q,1? 
SA DRAW -255 
5۵ DRAW Q.-1 
sa RETURN 


BARCHART 
DESCRIPTION 


The barchart is a very useful way of displaying data and comparing 
two or more sets of related data, and blocks of variable density 
dots make an ideal way of displaying the bars and differentiating 
between different sets of data. The example barchart used in this 
program is derived from a data table (lines 130-155), but could just 
as easily have been input from the keyboard, derived from calcula- 
tions or retrieved from a data storage device. There are three 
different sets of data in the example which are differentiated by 
having a dot spacing respectively of 1, 2 and 3. 


RUNNING THE PROGRAM 


There are no input variables required by this program since the data 
for generating the barchart is stored as data statements within the 
program. 


PROGRAM STRUCTURE 


60-70 set colours for plotting 

90 draw border around screen using subroutine at 400 

130-170 data for generating the barchart, it is stored as bar height 
in pixels followed by a dot density value. This determines 
the data set of the bar. In the example there are three sets 
of data each having six values. The end of the data table is 
signalled by putting O for each value. 

210 the value of B sets the bottom left corner X coordinate of 
each bar. Change this value to move the chart across the 
screen. 

220-300 block display routine, note that in line 250 the bottom Y 
axis (start of the chart) is set to 20 pixels up from the bottom 
of the screen; to move the chart up or down the screen 
change this value. Line 240 and 290 determine the width 
of each bar; the plotting is 10 pixels wide and the start of 
the next bar is 12 pixels from the start of the previous bar 
(this leaves a slight space between bars). To vary the bar 
width change these values. 

400-460 border drawing subroutine. 
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REM BARCHART 
REM 333333333333 3 X x X X3 X38 چو چو عو‎ 3 3 $e 


REM program to dram a barch 
REM using variable density 
REM to differentiate betwee 


n diferent 
4. 


130 
135 
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REM sets of data. 
REM 

REM set colours 
INK 6 

PAPER 了 

REM 

REM draw border around scre 
REM 

GO SUB 6 

REM 

REM barchart data 


a REM data stored as bar heig 


REM Followed by dot density 


DATA 20,1,45,2,80,23 
DATA 22,1,5Q,2, ےت‎ 
DATA 25, 1 55 2 
DATA کہ‎ 1,50 2 
DATA 30,1745 2 
DATA 4۵ 1 , 55 2 
REM data terma 


fa 

DATA 8,0 

REM 

REM draw barchart 

REM 

LET b=1@: REM start positio 


3 


3 
by douk 


sou 


pas pa 
Qs L. QU 


W kad ما‎ 
+م‎ RUSO 
) 5۰ Hr ~ 


Je. x w 


rom left screen margin. 
REA 


h.d 
IF d=@ THEN STOP 
FOR x=b TO 2 6 STEP d 
FOR y=22 TO h+2@ STEP d 
PLOT x,y 
NEXT y 
NEXT x 
LET b=b+12: REM set start o 


F next bar 


GO TO 220 
EE draw border 


PLOT 0,0 
DRAW 255,04 
DRAW 0,175 
DRAW -255,0 
RETURN 
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LINE 
DESCRIPTION 


Although the computer command DRAW will draw a high resolu- 
tion line between two points on the screen it has several serious 
drawbacks. Foremost of these drawbacks is that it uses relative 
coordinates, which are not very easy to use in many graphics 
applications. Another drawback is that it is impossible to draw a 
line with variable spacing between the dots. Both these problems 
are overcome by using this program, although it has one short- 
coming in that since it is written in Basic it is rather slow. Most of 
the programs in this book which require line drawing use this 
routine. Two versions of this program are given, the first ‘LINE’ 
simply draws a line of specified dot separation between two sets of 
coordinates. The second is identical except that the variable R$ is 
input to determine if the line is to be drawn or erased (the line is 
erased if R$ = E). 


RUNNING THE PROGRAM 


In the program “LINE” there are five variables which are input by 
program lines 100 to 130. The first two are input by line 100 and are 
the X, Y coordinates of the beginning of the line. The second two 
variables are the X and Y coordinates of the end of the line, and the 
last variable is the spacing between the dots used to draw the line. 
The program 'LINE2' has an extra variable input in line 120 this 
determines whether the line is drawn or erased, if an 'E' is input 
then the line will be erased, any other letter then the line will be 
drawn. 


PROGRAM STRUCTURE 


60-70 set colours 


90 draw border around screen using subroutine at 400 
100-130 input variables for start and end of line coordinates and dot 
spacing 


150-240 line drawing routine 
400-460 border drawing subroutine 





REM LINE 
REM SHA # 33 3 GR EE GE 3 3 GR GF X GB GB GEB URB £ £ $ GE 


OUVE 
3 
m 
x 


3. 
ne 
20 REM between two sets of coo 
rdinates 
30 REM the spacing between the 
dots used 
4. REM is variable. 
REM 


50 REM set colours 
REM 

68 INK @ 

70 PAPER 7 
REM 

88 REM draw border 
REM 

20 GO SUB 0۵ 
REM 


3868 REM line drawing routine pa 
rameter input 

118 INPUT xb,yb: REM cordinates 
of beginning of Line 

122 INPUT xe,ye: REM cordinates 
of endof tine 

130 ZNPUT ds: REM dot spacing 


14@ REM draw Line 


REM this program draws a Li 


145 REM 

150 LET p=xe-xb 

160 LET zye-yb 

170 LET r=50R (P P +Q  ( 
158 LET tx=prr 

190 LET ty=-qer 

200 FOR i-@ TO r STEP ds 
21! LET x-=xh+i+tx 

220 LET Y=eyb+»+i Fly 

230 PLOT x.y 

2408 NEXT i 

30 GO TO ıaa 

395 


128 DRAW 255,0 
430 DRAW 8,175 
440 DRAW -255,0 
458 DRAW @,-175 


46@ RETURN 
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40 REM is variable. 
45 REM 
50 REM set colours 
SS REM 
60 INK 0 
70 PAPER > 
725 REM 
Se REM draw border 
85 REM 
98 GO SUB 4u0 
5و‎ REM 
100 REM tine drawing routine Pa 
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INPUT xb,yb: REM coord; 
beginning af tine "9+ ۶ 
INPUT xe,ye: REM coordinate 


INPUT r$: REM dr 
REM 
draw line 


Pzxıe-xb 
و‎ =ye -Yb 
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NEXT i PE سس‎ 

GO TO 8 

REM 

EH border drawing routine 
PLOT 6,60 
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RECTANGLE 4 
DESCRIPTION 


Whereas the programs 'RECTANGLE 1 to RECTANGLE 3’ are only 
able to draw rectangles with sides parallel to the X and Y axis of the 
screen this program shows how to draw rectangles with sides 
which are not parallel to the screen axis. This is simply done by 
using a matrix of coordinates. Matrices are very important in 
graphics and an understanding of the principles is essential. The 
coordinate matrix is usually stored as data statements within the 
program and subsequently placed in an array. The values in this 
array can be manipulated mathematically, thereby allowing the 
shape to be rotated, scaled, or moved about the screen area. All 
these will be dealt with in later sections of this book. In this 
program the values are simply used to display the shape at the 
specified coordinates. 


RUNNING THE PROGRAM 


Since all the coordinate values are stored in data statements — 
lines 210 and 220, there are no values to be input in the program. 
However, to change the size or position of the rectangle it is 
necessary to input new data values into these data statements. 
Five coordinate values are required to draw the four lines of the 
rectangle, the X component of these five coordinates is stored in 
line 210 and the corresponding Y component in line 220. The best 
way to obtain these coordinate values for a new rectangle is to 
draw the shape with the correct scale and orientation onto graph 
paper and measure the required values. 


PROGRAM STRUCTURE 


50-60 set colours 


80 draw border around screen using subroutine at 600 
110-180 load matrix data into arrays n 
210 data for X component of coordinates 


220 data for Y component of coordinates 

300-350 set variables for line draw subroutine 

400-510 draw line. Note: dot spacing in 410 is set to 1 
600-660 border drawing subroutine 
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I 
PAPER 7 
REM draw border around scre 


GO SUB 600 
REM input data from data st 


into array. 
DIM a (5,23 
FOR c= TO 5 
READ mic, 4) 
NEXT c 
FOR c=1 TO 5 
READ mic,2) 
REN dò 
ata far coordinates 
REM 


DATA 406,580,140,100,40 
DATA 40,120,35,6,40 
REM raw rectangle 
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POLYGON 
DESCRIPTION 


The only difference between this program and the previous 
program ‘RECTANGLE 4 is the data used to draw the shape. The 
reason being that the use of a coordinate matrix is not confined to 
rectangles, it can be used to generate any required shape. In this 
program the data will draw an irregularly shaped octagon. To 
change the shape and its position simply change the data. 


RUNNING THE PROGRAM 


The coordinate data values are stored as data statements — lines 
210 and 220, so now there are no values to be input when the 
program کا‎ run. The size, shape or position on the screen of the 
shape can be changed by changing the data values in the data 
Statements. It should be noted that when a shape is drawn the 
number of pairs of coordinate values is one more than the number 
of lines in the shape. The number of coordinate values used to 
draw the shape is stored as the first data statement value — line 
205. The coordinates are stored as two sets of data, first all the X 
values and then in corresponding order all the Y values. In the 
example the X coordinates are thus stored in the data statement on 
line 210 and the Y values in line 220. 


PROGRAM STRUCTURE 


50-60 set colours 

80 draw border around screen using subroutine at 600 
110-180 load matrix data into arrays 

205 number of coordinates in matrix data 

210 data for X component of coordinates 

220 data for Y component of coordinates 

300-350 set variables for line draw subroutine 

400-510 subroutine to draw line 

600-660 border drawing subroutine 
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NEXT c 
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3684 GO SUB ۵ 

370 NEXT c 

38Q STOF 

ROGA REM Line drawing routine 
4+ 5۵5 REN 


3180 LET ds=i: REM dot sparing 
1420 LET p=xe-xb 
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POLYGON 2 
DESCRIPTION 


To save having to work out the end of line coordinates for each line 
of a polygon it is far easier, given a regular N sided polygon, to 
calculate these values within the program. This is done by the 
program POLYGON 2 which simply requires the centre of the 
polygon, the radius, the angular offset and the number of sides to 
the polygon. The program is configured to draw a series of poly- 
gons using data from a data table. The five parameters required to 
draw each polygon are then used to calculate a table of coordinates 
for each of the lines in the polygon, these values are then stored in 
the array min,2). 


RUNNING THE PROGRAM 


All the parameters required by the program are stored directly 
within the program. The X and Y coordinates of the central axis 
around which the shape is rotated is stored as the variables cx and 
cy. The number of lines in the shape is stored as variable n, r is the 
radius of the polygon and os is the angular offset. These values are 
stored as data statements in lines 300 to 320 (each line of data- 
statement holds the data for one polygon). To change the 
polygon's shape, orientation or position then change the values in 
the data statements, to add extra polygons then add further lines of 
data statement values. 


PROGRAM STRUCTURE 


60-70 set colours 
90 draw border around screen using subroutine at 900 
140 get data from data statement for next polygon 


160-170 matrix for line coordinates and angles 

180-190 convert angles to radians 

200-220 calculate angles for each corner and put in array 
300-320 data for drawing three polygons 
400-460 calculate line coordinates and put in array 
480-550 draw polygon 

610-720 line drawing subroutine 

800-860 border drawing subroutine 
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Lane drawing routine 


ds=1: REM dot spacing 
p=xe-xb 
q-ue-ub 

r=SGR (pP *p +q *q) 





LET tx=per 
L.E Lu =q. r 


D 
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RECTANGLE 5 
DESCRIPTION 


The problem with the programs RECTANGLE 1 to 3 is that they are 
unable to draw a rectangle with sides which are not parallel to the 
sides of the screen. Program RECTANGLE 4 overcame this but 
required the coordinates of all four corners. This program will draw 
rectangles of any orientation, given the coordinates of two corners 
and the length of one side, this is done using a simple calculation 
based on Pythagoras Theorem to calculate a matrix of corner 
coordinates. 


RUNNING THE PROGRAM 


The program requires the input of five parameter values. The first 
two are the X and Y coordinates of the bottom left corner and next 
two values are the coordinates of the bottom right corner. The last 
value is the length of a side at right angles to the side described by 
the pair of coordinates points. 


PROGRAM STRUCTURE 

50 - 60 set colours 

80 draw border around screen using subroutine at 600 
105 set up coordinate matrix array 

110 input bottom left X,Y coordinates 

120 input bottom right X, Y coordinates 

130 input length of perpendicular side 


140-295 calculate all corner coordinates of the rectangle 
300-360 draw rectangle 

400-510 line drawing subroutine 

600-660 border drawing subroutine 
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NEXT i 

REM border drawina routine 
PLOT $,0 

DRAW 255,0 


CIRCLE 
DESCRIPTION 


Plotting an ordinary circle with your computer is remarkably 
easy, using the built-in CIRCLE command, which allows you to 
specify the central X and Y coordinates, and also the radius. This 
will then plot a complete circle on the screen. However, for many 
applications we will not want a full circle, although we will require 
full image of the circle to be displayed. In other words, we want to 
be able to specify a distance between the points plotted that make 
up the circumference of the circle. The program CIRCLE does just 
that, by use of the PLOT command to plot each individual dot of 
the circumference to a specified separation. This is the variable DS 
in the program listing, line 130. 


RUNNING THE PROGRAM 


A number of inputs are required to get the program going. In line 
110 we input the X and Y coordinates of the centre of the circle, 
namely XC and YC, followed in line 120 by the radius RA. Our 
fourth input is the separation between the dots as mentioned 
earlier, that is the variable DS in line 130. This dot separation is 
then converted in line 210 (by multiplying by Pl and dividing by 180) 
to form the STEP for the FOR NEXT loop in line 230 which initiates 
the plotting process. As we know, 2 Pl radians equal 360 degrees, 
and hence the statement in line 230. Then we just calculate the 
distance of the dot in terms of X and Y coordinates from the centre 
of the circle, and PLOT the point. Line 300 then sends us back for 
another run and another circle. 


PROGRAM STRUCTURE 


60-70 set colours 


90 draw border around screen using subroutine at 400 
110 input coordinates of circle centre 
120 input circle radius 


130 input dot separation 
210-290 draw circle 

300 back for another go 
400-460 border drawing routine 





Aut AU UU ...... 








Ti‏ یی را 


ka 
es 


۰ 

a . . 
ao ... 

. 99 28 5 29 ** 





67 


REM CIRCLE 
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REM routine ta draw 
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REM 
REM set colours 
REM 
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REM 

REM draw barder 


REM 
GO SUB 400 
REM 


REM input circle drawing Pa 
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INPUT ds: REM dat spacing 
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PLOT 0,6 
DRAW 255,0 
DRAN 9ٍ ٤۹ 
CRAN -255,8 
DRAW 0, -175 
RETURN 


M 
REM border drawing routine 
REN 


ELLIPSE 
DESCRIPTION 


Your computer is equipped with the CIRCLE command to facilitate 
the drawing of a circle, but what it does not possess is a command 
to plot an ellipse. That is, a circle that is offset on two sides from 
the central point in either the X or the Y direction. Using the routine 
we developed in the program Circle, together with a couple of 
additions to handle the elliptical effect, we can plot an ellipse, or 
indeed any number of ellipses, with variable dot spacing. The 
offsets are specified in line 140, and determine the degree of 
ellipse. The variables OX and OY are used, and obviously if OX is 
zero we get an ellipse in the Y direction, and vice versa. Naturally 
we can give values to both of these to get a number of interesting 
effects. 


RUNNING THE PROGRAM 


In structure this is very similar to the Circle program earlier, but a 
` couple of major differences are worthy of note. In line 140 we are 
asked to input the variables OX and OY to specify the degree of 
ellipse. These are subsequently used in our ellipse drawing routine 
in lines 240-250 to calculate precisely where our point is to be 
plotted. The rest of the program, including the routine to specify 
the separation of the dots (lines 210 and 230) is virtually the same. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border round screen using subroutine at 400 
110 input coordinates of ellipse centre 

120 input ellipse radius 

130 input dot separation 

140 input elliptical offsets in X and Y direction 
210-290 draw ellipse 

300 back for another go 

400-460 border drawing routine 
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1 REM ELLIPSE 


2 REM x*xs3:ÁÁcGXGBXXXYXYEFfEXEXEEEXEX 


3 REM 


iG REM routine to draw i 
PSE URS Offsets en 


20 REM spacing between the dot 


5 used 
se REM to draw the ellipse is 
variable 
40 REM 
SQ REM set colours 
55 REM 
60 INK 0 
ZO PAPER > 
58 REM 
draw border 
SS REM 
30 GO SUB 400 
95 REM 
100 REM input ellipse drawing p 
arameters 
110 INPUT xc,yt: REM coordinate 
s of ellipse centre 
120 INPUT ra: REM ellipse radiu 
= 


"130 INPUT ds: REM dot spacing 
1404 INPUT ox,O0y: REM etlipticat 


inh X and Y Sakis‏ نو انیت 


1985 RE 

2886 REM draw ellipse 

205 REM 

216 LET ds=ds ¥3. 14.1509, 180 
20 LET r=ra 

234 FOR pz TO 273,1413159 STEP d 
s 

235 REM 

240 LET xər COS (p)xox 

250 LET yerx*SIn (pi say 

2664 LET X=x+xec 

274 LET y=y + لیا‎ 

260 PLOT x.u 

2988 NEXT P 

306 GO TO 188 

395 R ۱ . 
400 REM border drawing routine 
4295 REM 

4410 PLOT @,@ 

420 DRAN 255,0 

432 DRAN 4,175 

41464 DRAW -255,@ 

458 DRAW @, -175 

460 RETURN 
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ARC1 
DESCRIPTION 


The computer command DRAW, whilst not being without its uses, 
suffers from a number of limitations. Like the CIRCLE command, 
you can only draw complete, filled in lines. Also, whether we use it 
in conjunction with the third parameter (other than X and Y co- 
ordinates of the finishing point), namely the angle through which it 
must turn, or not, we must always remember that DRAW will start 
off from the last point plotted by CIRCLE, PLOT or the previous 
DRAW statement. In order to draw an arc from anywhere to 
anywhere, and to be able to have user-definable dot spacing, the 
routines in the program ARC1 were developed. 


RUNNING THE PROGRAM 


A number of inputs are required. In line 110 we must specify XC 
and YC, that is, the centre of the arc. Line 120 allows us to specify 
RA, the arc radius, and line 130 lets us input the dot separation DS. 
Two further inputs in line 140 contain the crux of the matter, and 
give us that much needed flexibility over DRAW, by allowing us to 
specify the start and end angles of the arc. Thus, we are not limited 
in where we can start drawing. The drawing routine in lines 250 to 
310 is similar to the ones in earlier programs in this series. 


PROGRAM STRUCTURE 


60-70 set colours 


90 draw border round screen using subroutine at 400 
110 input coordinates of arc centre 

120 input arc radius 

130 input dot separation 

140 input start and end angles for arc 


210-290 draw arc 
320 back for another go 
400-460 border drawing routine 
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A REM ARC å 
2 REN ۶ + #* مخ مج‎ * 3 3 3 3: RARE $ ¥ ¥ ¥ 


10 REM routine to draw an arc 
20 REM spacing between the dat 


Sa REM to draw the art is vari 
d. 
Sa REM set colours 
NK e 
ea PAPER 7 
REM 
Sa REM draw border 
REM 
SA GO SUB 400 
5 REM 
Q REM input arc drawing param 
rs 
@ INPUT xc,uc: REM coordinate 
f centre af arc 
@ INPUT ra: REM srt Sadius 
1350 INPUT ds: REM dot spacing 
140 INPUT as,ae: REM Start and 
end angles for arc 
195 REM 
200 REM draw arc 


210 LET ds=ds:3.14159-180 
220 LET as=a5*3.14159,-180 
230 LET a2e=3e3.14159/-180 
240 LET r=ra 

250 FOR p=as TO ae STEP as 
260 LET x-rxcOS (pi 

279 LET gzrxSIN [pr 

280 LET x=x+xc 

290 LET y=y+yc 

308 PLOT x,y 

318 NEXT p 

S20 GO TO 100 

395 M 
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DISK 1 


DESCRIPTION 

When examining the program CIRCLE, you probably realised that if 
you repeated the process again and again, but specifying a 
different radius each time, it would be possible to build up a 
complete disk rather than just a circle. This is certainly true, but the 
time taken would be rather a long one, and you'd probably get fed 
up with running through the program time after time. Conse- 
quently, the program DISK 1 takes the drudgery out of the process 
by incorporating a couple of new routines to do it all for you. 


RUNNING THE PROGRAM 


Again, we have to input a number of variables before we get to the 
meat of the program. As before, line 110 allows us to specify the 
coordinates of the disk centre, line 120 the disk radius, and line 130 
the dot spacing. In drawing the disk however, we go through two 
FOR NEXT loops rather than the usual one. The inner loop, lines 
230 to 290, draws just one circle as we've seen before. The loop in 
line 220 and 300 then uses the previously specified dot separation 
to step up the radius of the circle to draw another one, until finally 
we reach the full radius originally input in line 120. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border round screen using subroutine at 400 
110 input coordinates of disk centre 

120 input disk radius 

130 input dot separation 

210-290 draw arc, incorporating:- 

230-290 draw circle, and 

220,300 step up radius and draw another one 

320 back for another go 

400-460 border drawing routine 
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REM DISK 1 
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2 REM routine to draw a disk 

= A SPacing between the dot 
s ا‎ 
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sa REM set colours 
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a PAPER 7 

75 REM 

Sa REM draw border 

SS REM 

se GO SUB 466 

A5 REM 

1060 REM input disk drawing para 
meters 

110 INPUT xc,uc: REM coordinate 


5 OF disk centre 
120 INPUT ra: REM disk radius 
1238 INPUT ds: REM dat spacing 
zaa REM draw disk 
zas M 
2180 LET d=453:3,.14159-150 
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225 M 
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DISK 2 
DESCRIPTION 


In the previous program Disk 1 a disk was constructed by 
repeatedly drawing a circle of ever increasing radius centred 
around the same spot. The one disadvantage of this is that, to 
draw a solid disk, we have to draw an awful lot of circles, and this 
of course takes quite a long time. In order to speed up the process 
the following program introduces the DRAW command. As you 
may know, DRAW takes as its starting point the last point to be 
drawn using any one of the three commands PLOT, CIRCLE, and 
DRAW itself. There is a third option, that of specifying an angle to 
be drawn through, but that need not concern us here. By plotting 
points on the circumference of a circle, we can use the DRAW 
command to draw a line from that point to A point on the other 
side of the circle that has the same Y coordinate. Thus the disk is 
built up from bottom to top by a series of lines. 


RUNNING THE PROGRAM 


The only inputs required in this program are the central X, Y 
coordinates for the disk (XC and YC), and the radius RA. In lines 
210 and 220 we calculate the start and end Y coordinates: in other 
words the bottom and top of the disk. Lines 240 to 270 then 
calculate the starting coordinates for the PLOT and DRAW 
commands, namely XS, and in order to be able to use DRAW we 
also work out the end X coordinate XE. Thus, in line 280 we PLOT 
a point on the left hand side of the disk, and in 290 DRAW a 
horizontal line over to the right hand edge. Note that line 290 
should read DRAW XE, Y, and NOT DRAW XE, 0. You can always 
try 0 and see what happens! 


PROGRAM STRUCTURE 


60-70 set colours 

80 draw border using routine at 400 

110 input central coordinates of disk 

120 input radius of disk 

210-220 calculate start and end Y coordinates 
240-270 calculate start and end X coordinates 
280-290 PLOT and DRAW the horizontal line 
310 back for another go 

400-460 border drawing subroutine 
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ters 


REM the disk drawing speed 
REM 


REM set colours 
REM 


INK Q 

PAPER 7 

REM 

REM draw border 
REM 

GO SUB 400 

REM 
REM input disk drawing para 


INPUT xc,uc: REM coordinate 
disk centre 


dl ra: REM disk radius 
draw disk 
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SEGMENT 
DESCRIPTION 


Although DRAW allows one to draw an arc, it does not allow one 
to draw an arc with variable dot spacing. By drawing various circles 
to variable dot spacing, a disk with the same dot spacing can be 
plotted. Combining both of these routines resulted in the program 
Segment, presented here. Using this program we can draw a disk 
segment, again with the spacing between the dots defined by an 
input (line 130), and moreover we can make that segment as large, 
or as small, as we like. As you can see from the illustration, 
combining a number of runs of the program enables us to link 
different disk segments together. 


RUNNING THE PROGRAM 


As usual, line 110 lets us input the coordinates of the arc centre, 
120 the arc radius, and 130 the spacing between the dots. In line 
140 we input the start and end angles for the arc. The program 
following is then fairly straightforward. In lines 250 to 310 we plot 
just one arc, using the PLOT command for each point of the arc. 
The outer FOR NEXT loop, in lines 240 and 320, uses the dot 
separation to increase the radius of the arc, and then the inner loop 
plots out another arc. This continues until we reach the final radius 
of the arc, RA, as input in line 120, which gives us our final arc and 
completes the segment. By specifying a different dot spacing we 
can build up a whole series of arcs joined onto each other. 


PROGRAM STRUCTURE 


60-70 set colours 


90 draw border using routine at 400 
110 input central coordinates of arc 
120 input radius of arc 

130 input dot spacing 

140 input start and end angles for arc 


240,320 outer drawing routine, incorporating: 
250-310 individual arc drawing routine 

330 back for another go 

400-460 border drawing subroutine 
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SPacing between the dot 
to draw the segment is 
variable 
@ REM 
REM 
REM 


INK Š 

PAPER 7 

REM 

REM draw barder 

GO SUB 400 

REM 

REM input arc drawing param‏ اہنت 
ie INPUT xc,4Mc:‏ 
f arc centre‏ 

8 INPUT ra: REM arc radius 

@ INPUT ds: REM dot spacing 


INPUT as,ae: REM start and 
nd eng ا‎ for arc 


set colours 


a 
REM coordinate 
لت‎ 


draw arc 


oat, 82626; 50 


Ə REM 
6 


REM 
LET 
LET 
LET 
FOR 
FOR 


LET X=FECOS 


RETURN 


d=4s ¥3. 14 1 5 ۵ مر‎ 18580 

aS 2۵ 5 3 。 1 4 4 5 ۵ مر‎ 1 
ge=3e #3. 14.159.150 

r=ds TO ra STEP ds 

TO ae STEP dzi4e@rer‏ ۶ 3۵ 2 ط 
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ip) 





PIECHART 
DESCRIPTION 


The culmination of all the plotting routines for circles, arcs, and 
disks results in the program PIECHART. Of use in business, 
educational, and indeed just about any computing environment, 
piecharts enable us to show clearly and (quite strikingly) visually all 
manner of different data. We mentioned when describing the 
program Segment, that by building up various runs through the 
program it was possible to have different segments next to each 
other. This program takes the chore out of that exercise, by 
assigning various variables first of all, and then using DATA 
statements to generate the necessary information. Obviously, this 
program will be of most use to you when using your own data. 


RUNNING THE PROGRAM 


This program differs from the earlier Segment one by having no 
input statements. Instead, we define the variables XC and YC to be 
the central coordinates in line 110, and the variable RA to be the 
radius in line 120. Needless to say you can change these to suit 
your own requirements. The data for making up the different arc 
segments is contained in lines 500 to 560. In order, we have the dot 
separation, the start angle for the segment, and the end angle. 
Again, these can be whatever you require. By reading these in lines 
130 and 140, we then follow the segment plotting routine in lines 
240 to 320. When line 150 detects a zero dot separation (as read in 
from line 540) the program comes to a halt. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border using routine at 400 

110 define coordinates of centre of piechart 
120 define radius of piechart 

130 READ dot spacing 

140 READ start and end angles of segment 
150 if spacing of zero, then STOP 

210-320 segment drawing routine 

330 back for more data 

400-460 border drawing subroutine 

500-540 data for piechart 
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ID es سا‎ (y. 
SOU 
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1 Tu 
a 
1 


fo 4‏ زا[ زا 
CORI‏ 
Git‏ 


PIECHART 
جو‎ X. X X کو‎ X XO چو ےو کی‎ X 2 کو جو‎ K چو‎ ELE RS 


routine to draw a Piech 
sina 
REN variable spacing betwee 


REM to differentiate betwee 
ments. 

REM 

REM set colours 

INK ۵ 

PAPER 7 

REM 


REM draw border 
ات‎ SUB ٥ص‎ 


REM get piechart data fronm 
2خ‎ 5 tine Seas 


LET XC=ZIBQ: LET y 
rdinates Qf disk 
LET ra=4@: REM 
RERD ds: REM 
RERD as,ae: 
nates For se 
IF 


ara 


gment 

ds=@ THEN STOP 
draw segment 
d=ds xm. 14152-185850 
38 ج و ع‎ £3. 14159 ° ٤۵ 
se=3e FA. 141159 مر‎ 1 

r=ds TO ra STEP ds 
zac TO ae STEP dx مر 9ج‎ 


xaf COS (p) 
Y=mraSIN (p!) 
x == +x C 

d = +J C 
PLOT x,y 


NEXT P 


NEXT r 
EE TO iaa 


EM . 
REM border drawing routine 


JNILLO ld ٤۰ 
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GRAPH 
DESCRIPTION 


Your computer can plot points on a screen that is 32 columns 
across and 22 rows deep, giving us a total of 32 x 24 or 704 char- 
acter positions. Each of these character positions is made up of an 
8 x 8 dot matrix, which means that we can plot points to a resolu- 
tion of 256 in the X axis and 176 in the Y axis. The two programs 
GRAPH and GRAPH2 use the full resolution of the screen to plot 
respectively a graph of SIN (X) and SIN (X) with COS (X), using 
the computer commands PLOT, and DEF FN to define the function 
to be plotted. The programs are identical except for an additional 
routine in GRAPH? to plot COS (X), and a couple of lines to identify 
the function and display a title. 


RUNNING THE PROGRAM 


The INPUTting of variables is not required in either program, as we 
are simply taking the function a(x) to represent sin (x/30)*60 in the 
program GRAPH, and in addition b(x) to represent cos (x/30)*60 in 
the program GRAPH2. These are defined in line 130 in the former 
program, and lines 130-131 in the latter. It then runs through lines 
200 to 390 to plot out the actual function. These routines could 
obviously be incorporated in further programs to plot different 
functions, just by altering the definitions in lines 130-131. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border around screen using subroutine at 400 
130-131 define function(s) to be plotted 

150-180 draw Y axis and label graph(s) 

200-390 graph plotting routine 

400-460 border drawing subroutine 
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REM GRAPH 
BEL 3 št £ $ GR $£ š: X X b $ $ OG 3 GO šE $ 9 XX 
REM Program to plot the gra 


Ph of a Function 
REM 


REM set catours 
REM 

INK © 

PAPER 2 

REM 

REM draw border 
REM 

GO SUB daa 

REM 


REM define Function to be p 


iotited 


ias 
110 
the 
120 


REM 

REM the numerical values in 
example are 

REM used to scale the Plat 


= کاس اس سک‎ ٤ dimensions 


ios 


G3 09 10 fi KI مرن‎ ++ 
110 G TO ئ1‎ 910 
(JF 6 G 9 ۵ 5 


P 
fa 
o 


REM 

ERA FN a ixl =SIN (xX #80 
REM draw Y axis at 8 

REM 


PLOT 1,85 
DRAW 254, e 
PRINT AT 1,8; “GRAPH OF SIN t 


REM 

REM plat graph 
REM 

FOR x-i TO 235 
LET Y=FN atx) 
PLOT x410.,u485 
NEXT x 

STOP 


REM 
REM draw border artund scr& 


GRAPH 2 
š£ £ š£ š$ £ $ $£ £ $ + ےچ‎ X GRO GRO وج‎ GR X 


REM 
REM 
REM 
10 REM program to plot the gra 
Ph of two functions 
28 REM 


30 REM set colours 
REM 


whe 


Son 


PRINT AT 12.1; "@ 
eo es 


3 
PRINT AT 6,11; “SIN Cx)" 
PRINT AT 16.4: COS (x ” 


EM 
REM Plat graph 
RE 
TO 235 


PLOT x+10,y+85 
LET =FN b(x) 
PLOT x +18,y+&ß 
NEXT x 

STOP 

REM 


40 
SO INK © 
60 PAPER ? 
70 REM 
80 REN draw border 
3S REM 
aa GQ SUB ijan 
108 REM der 
efin i 
Tre ine function ta be p 
110 REM th 
e ٦ ^ 
the example numerical vatues in 
Used to scale th 
ta reasonable di e plot 
125 REN Simensians 
FN a(x) =% XN (x -3@Q) «Ba 
131 DEF FN bíx)-COS ۱ 
135 REM ; (X ت۸3‎ +68 
raw Y axis and labets 
145 REM 
150 PLOT 1.35 
160 DRAW 254,0 
165 3 


REM draw border around Secre 


REM 
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3D GRAPH 
DESCRIPTION 


Building on from the routines for plotting two dimensional 
functions, we find that it is relatively easy to design a program for 
plotting in three dimensions. The two programs labelled 3D Graph 
do just that. Although we are relying on the same computer com- 
mand PLOT, our routine for plotting the function is, of necessity, 
rather more complicated this time, as we are trying to emulate a 
three dimensional image on what is, after all, a two dimensional 
screen. Of special interest in this routine is the double IF statement 
in line 310, which performs a straightforward RETURN depending 
on the values of the variables P and Z. Two versions of the program 
are given: these are identical apart from the definition of the 
function to be plotted, which is in line 150. 


RUNNING THE PROGRAM 


No variables are INPUT in this program, as our function is defined 
in line 150, and the area to be plotted in is determined by the scale 
given to X in line 220. This in turn determines the scale of Y to be 
plotted, by line 260. Line 270, the start of the inner of our two 
plotting loops, plots all the points on the Y axis for the value of X in 
the outer loop, which commences at line 220. We then move onto 
the next point on the X axis, and plot all the Y values there, and so 
on. By changing the definition in line 150 we can plot out a whole 
series of different functions. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border round screen using subroutine at 400 
150 define function to be plotted 

210-380 plotting routine 

370-390 program termination 

400-460 border drawing subroutine 
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Y REM 3D GRAPH 
2 REH ++: + رخ چرخ‎ 3 X 3 X ¥ XR چو‎ ¥ 
3 REM 
184 REM this routine plots the 
graph of a 
a 8 Function in 3 dimension 
Sa REM 
30 REM 
50 REM set catours 
50 INK a 
a PAPER 7 
en REM draw border around scre 
24 GO SUB daa 
188 REN a 
: efine runction to be 
Lotted E 
195 REM de 
118 REM the function is changed 
by attering the contents of lin 
e 150 
i20 REH 
ي‎ DEF FN at(z) SEL EXP (-zız کا‎ 
195 REM 
204 REM plot graph 
205 REM 
214 LET k=5 
220 FOR x=-10@0 TO 180 STEP 1 
230 LET 3ء ا‎ 
248 LET p=1 
250 LET zi=& | 
Ben Per Y21=kK*INT (SAR (10000-x = 
x) “ 
274 FOR y=yi TO -yi STEP -k 
288 LET z=INT (GSG+FN 31(50R (xxx 
A a er on 
9 IF z«t THEN GO TO 350 
295 GO SUB 09 
304 LET Lzz 
sıa IF p=@ THEN GQ SUB 3806: IF 
zzzi THEN GO SUB 3508 
328 PLOT x+125,z 
3304 IF pz THEN LET ziez 
32408 LET pzü 
350 NEXT u 
Gee NEXT x 
374 GO SUB 338 
SSA RETURN 
390 STOP 
395 REM 
4980 REM draw border 
405 REM 
410 PLOT a,e 
4249 DRAW 255,84 
45350 DRRGU 6,2175 
148 DRAW -255,n 
450 DRAN ۵, -175 
460 RETURN 


INTERPOLATE 
DESCRIPTION 


Determining a set of data is all very well, but it is the interpolation 
of that data that produces the all important results. One common 
method of doing this is to take the data and turn it into points on a 
graph, and then perform the interpolation between those points. 
The program “Interpolate” does that, by assuming that you 
already have your data in the form of X,Y co-ordinates (here we 
store them as data statements in line 180), and plotting the 
appropriate point out within a defined area (lines 220 to 230 define 
the top and bottom of the Y axis and left and right of the X axis), 
before finally “joining up’ the points in whatever form you desire 
(see Running the Program). You could quite easily incorporate your 
own data into this program simply by changing the data statements 
in line 180. 


RUNNING THE PROGRAM 


The main bulk of the work is done a) by the line 180, which stores 
the data as X,Y co-ordinates, and b) line 200, which determines 
which point we start at (here it is the first one), which one we finish 
at (here it is the twelfth), and which points we interpolate between 
(here it is every one), although by changing the variable SP in line 
200 we could easily take every other point, for instance. Once 
we've calculated the scaling factors in lines 410 to 490, and turned 
these into point increments in lines 510 and 520, we plot the actual 
point in line 640, and the line between each point by the routine in 
lines 670 - 730. 


PROGRAM STRUCTURE 

60 - 70 set colours 

90 draw border round screen using subroutine at 1000 
110-160 read and store the data 

180 data stored as X,Y co-ordinate 

200 determine start and finish points, and separation 


220 -230 determine position and dimensions of graph on screen 
310-380 draw border round graph, and label graph 

410-490 determine scaling factors 

510-520 convert scaling factors to point increments 

610-740 point and line drawing routine 

1000 - 1060 border drawing routine 
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INTERPOLATED GRAPH 


1 REM INTERPOLATE 
e REM s**= 333 3331 3 3 X < X 32 X XxX3 39 X 


sè REN 
Program to 

bu interpo 9 AB draw a 9raph 

20 REM 


e 
se f 
as data state ts 00 5 stored 
25 BE ine e. 
Q 


38 REM draw border around sere 


REM 
Sga GO SUB ۵ 
REM 
@ REM initiatise data 
S REM 
@ DIM x (12) 
a 
a 


178 REM data stored as X and Y 
coardinate 

175 REM 

18@ DATA 1,18,2,25,3,3B8,4.20,5S. 
420,6,30,7,50,8, 26, a, 25,16, 50,121. 
2 ۲ 


130 REM min dimension =4. max=1 
, Seperation =1 

195 M 

290 LET dn=zi: LET dx=z1i2: LET sp 
=1 

205 REM : 
2149 REM position and dimensions 
af graph on screen | 
215 REM 

228 LET xt-240: LET xr=15 

230 LET yt=2@@: LET yb=30 


u 


295 REM 

SAA REM draw border around grap 
h 

3Q5 REM 

518 PLOT xr-5,yb-% 

3204 DRAW (xl-xr+1@),@ 

3380 DRAW A, (yt -yb+18) 

344 DRAN ~-(xl-xr+i1@) , A 

358 DRAW a, -(ut-yb+10) 


SSS LET xiz1x1-xFf)v“idx-dp) 
36 FOR x=xr TO xt STEP xi 
355 PLOT x,ub-6: PLOT x,ub-7 
` NEXT x 
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o AT 2.7; “INTERPOLATED 
E 


4 2۵ REM calculate scale factors 


x1=41: LET x2-uz 


- 

T 

m 

z 

nr 

m 

| 
x KIC Y 
سر زا در از‎ 
H H H H 
X X C گا‎ 
pau مو مو‎ pa. 


factors 


aph 


dx STEP sp 
x fi} —x2) va) 
) -u2) ’b+4yb) 


m 

一 X mw DAZ 

رج جرا 
7 


Im 
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m 
£ X — 
=, ہہ‎ fe) 
ba, TJ 


n, 


> > لہ‎ Ti Gi 
ip 0-40 


و 5ا -ي - 09059 96866 891۷1۸“ 655 ہ 
7 
O‏ 
D‏ 
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y 

p~ 

"i 
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| = 
Vu fan, 
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NEXT y 
NEXT 
REM dfaw border around scre 


REM 


مر Ro ph‏ شا RR‏ سإ شم 
600559068704 
DIN ONO GP Or:‏ 


AYOWAIN 0301۸ AHL 7 
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GRAPHICS CHARACTERS 


There are sixteen special graphics symbols which can be 
displayed on your computer. They are what are known as quarter 
square graphics; this means that each character space is divided 
into four and the symbols are built up from one or more of the 
quarters being in the ink colour. These symbols are shown on the 
keyboard and are accessible by first pressing the key marked 
GRAPHICS (note that the cursor letter changes to 'G') then 
pressing one of the keys bearing the appropriate graphics symbol. 
There are only eight keys bearing the graphics symbol legend, the 
remaining eight symbols can be obtained by pressing the shift key 
as well as the symbol key. 


In addition to the sixteen quarter square graphics symbols there 
is the facility to create up to 21 user defined graphics. As with the 
quarter square symbols these are displayed using the GRAPHICS 
key followed by one of the keys from A to U. When the machine is 
first switched on these will contain just the corresponding 
alphabetical letters. To get a user defined character it must first be 
designed and entered into the correct eight bytes of a special 168 
byte RAM character generator at the top of memory. The best way 
of designing the character is to use a character editor — such a 
program is included in this section. The character editor produces a 
set of eight values which determine the pattern of the character. If 
these values are converted into binary form then the ‘1’ values 
indicate that the pixel is in ink colour and a ‘0’ that the pixel is in 
paper colour. Having obtained the eight values for each character 
these values can be placed in the RAM character generator, and 
used by another program. 
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HI-RES CURSOR 
DESCRIPTION 


Many of the arcade games about at present require the movement 
of some kind of ‘sight’ around the screen, to get you to the right 
position before firing. Similarly, a routine to move a sight, or 
indeed a cursor over the screen, would have many uses in plotting, 
design, and graphic programs generally. The two programs here 
provide just such a routine, but achieved in slightly different 
manners. What they do have in common is the method of moving 
the cursor (here it is a cross) about, which uses the keys 5, 6, 7 and 


8 in the following way: 
st 


6 


Thus, pressing the 8 key would move the cursor up, etc. This 
routine lies in lines 210 to 260. The two programs differ in that 
a) the cursor is designed differently in each one, and b) the first 
program erases whatever screen contents the cursor passes over: 
the second one doesn't. 


RUNNING THE PROGRAM HI-RES CURSOR 


Having drawn our border around the screen, the program positions 
the cursor at the X, Y coordinate of 5,5; and sets the increment 
between cursor movements (the variable S in line 120) to be 4. The 
program then simply waits until you press the appropriate key, 
increases or decreases X or Y accordingly, and then checks to see 
whether you are still within the screen boundary. If you are, it 
erases the previous cursor, draws a new one, and then awaits the 
pressing of another key. 


PROGRAM STRUCTURE FOR HI-RES CURSOR 


60-70 set colour 

90 draw border round screen using subroutine at 600 
110-120 set up parameters 

210-260 check for key press 

310-340 check if within boundary 

410-440 erase previous cursor 

460-490 draw new cursor 

510 back to check for key press 
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600-660 border drawing subroutine 
RUNNING THE PROGRAM HI-RES CURSOR 2 


This follows roughly the same lines as Hi-Res Cursor, although our 
cursor is now defined in data statements contained in lines 
150-170, and stored in the array C (5,5). This “cursor” can now be 
anything you like, simply by changing the data statements. We plot 
the position of the cursor in lines 610-680, using the computer 
command INVERSE. In other words, we replace paint dots by ink 
dots, and vice versa. However, the point of this program is that we 
do NOT erase the screen contents, so the routine from lines 410 to 
480 erases the cursor but then does an INVERSE on what has just 
gone, thus restoring the original screen display. Before plotting the 
cursor again we must save the screen contents into our array 
M(5,5), and this is performed by the function in lines 510 to 550, 
using the computer command POINT. POINT tells us whether a 
pixel is paper or ink colour, and we use this array again when going 
back to erase the cursor and re-trace the screen contents. 


. PROGRAM STRUCTURE FOR HI-RES CURSOR 2 


60-70 set colours 

90 fill the entire screen with characters 

105-110 set up parameters 

120-170 define 'cursor' and read data statements 

210-260 wait for appropriate key press 

310-345 check if within boundary 

410-480 erase previous cursor and restore screen contents 
510-550 save screen contents 

610-680 plot new cursor 

910 go back and wait for another key to be pressed 
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Te 
i a 


ie 
118 


en cursor 


HI-RES CURSOR 
3 * x x 3 3 £ x £ x $£ RELE FFF ہیں 3 یں‎ 


program to move a high 
about 


EM the screen under contra 
the keyboard. 
REN 
REM 
REM set colours 
INK Q 
PAPER 7 
REM 


REM draw border around scre& 
REM 

GO SUB ۵ 

REM 


REM set up parameters. 
LET x=5: LET y=5: REM start 


position 


i20 


LET s=d: REM cursor movenen 


t increments 
134 G 


G TO ۵ 
REM 
REM input cursor movement f 


REM 
IF INKEY $="" 
LE 


THEN GO TO 21€ 
LET xo=x: T 


go =u 


IF INKEY $="S" THEN LET wx=%*- 
IF INKEYS="6" THEN LET y=y- 
IF INKEY$z"7" THEN LET یپ با‎ + 
IF XINKEY $="G" THEN LET X=xX + 
BEN check cursor within bou 
RE 


M 
IF x«S THEN LET x= 


IF x»250 THEN LET x=252 
IF g<S THEN LET y=5 
K 6 THEN LET y=17@ 


REM erase previous cursar 
REM 


PLOT INVERSE 
DRAW INVERSE x 
PLOT INVERSE i;xò,yo-2 
DRAW INVERSE 1;0,4 


REM 

REM plot new 
REM 

PLOT x-2,Y 


DRAW 4,0 
PLOT x,u-2 


1; 4 


CUFSOf 
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482 ORAL 06,4 
REM 


495 

SOU REM do again 
SS REN 

210 GO TO 210 
595 REM 


£00 REM draw border around scre 


605 REM 

618 PLOT a, a 
628 DRAW 255,0 
630 DRAW 08,175 
640 DRAW -255,0 
6584 DRAW 0,-175 





3 REM HI-RES CURSOR 2 

= 4 3 3 $ 3 3 3: X 3£ وو‎ GX* X RELE ERA 3 3 ےو جو‎ $ 3 

16 REM progranm to move a high 
resolution cursor about 

RF REM the screen under contro 
t of the keyboard. 

30 REM the cursor does not era 
Se existing screen displays 

40 REM 


58 REM set colours 
56 INK GO 

ZÒ PAPER 7 

75 RE 


SÈ REM fiti screen with charac 


FOR q=1 TO 704: PRINT "x";‏ 96د 


Iaa REM set up parameters 
185 LET x=5: LET y=5: REM start 
AO LÈT sca: R 
$24: EM cursor mo 
t increments ای‎ 0 
28 DIM c(5,51: DIM دک رج و۵‎ 
125 FOR i=1 TO 5 
138 FOR j=1 TO 
13S READ Clj,3i2 
140 NEXT j 
145 NEXT 1 
358 DATA ,04,1,0,a 
18585 DATA a,/4,1,6,4a 
1640 DATA ł1,2,1,1.,32 
165 DATA e,0,1,0,0 
174 DATA رج .3د رج ری‎ e 
19298 GO Ta Eee 
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REM 
REM input cursor movement f 


keyboard 
R 


EM 
IF INKEYS$z"" 


THEN GO TO 214 
LET xo=x: 


y a =y 


1F THEN 


IF 
IF 
IF 
REM 


REM check cursor 


REM 


IF x«5 THEN LET x=5 
IF x»250 THEN LET x=250 
IF y<S THEN LET y=S 
ERI ج17 < یا‎ THEN LET y=170 


INKEY:!: „ns 
INKEY $="6" 
INKEY $="7"' 
INKEYS$="8" 


THEN 
THEN 
THEN 


REM erase Previous 


REM 


FOR i=-2 TO 2 


FOR 


=-2 TO 


LET 
LET 
LET 
LET 


x =X = 
Y sy - 
yay + 
x =x + 


within bou 


cursor 


2 
IF m(j+3,i+3)=40 THEN GD TD 


ao‏ ان جم 


0 
PLOT INVERSE 1; 3+xX0,1ı1+490 


Save Screen contents 


i=-2 TO 2 


j=-a TO 


2 
m (O+, i +3) =<POINT 


(+X , 3 


NEXT j 
NEXT à 
REH 


E 
REM plot new curso 
REM 


FOR i=-2 TO 2 
FOR j=-2 TO 2 
IF ctg+3,173) =@ THEN GO TO 


GO TO ES Y 

PLOT INVERSE 1; +X , i + 
NEXT j 

NEXT i 

REM 

zc do again 


RE 
SOQ TO 228 
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CHARACTER EDITOR 
DESCRIPTION 


To use the high resolution capabilities of the computer to the full, 
we need to know a little bit about the commands POKE, USR and 
CHRS. You'll find the relevant information in your Timex-Sinclair 
Basic Programming book. Quickly, we can use CHR$(144) to 
CHR$(164) for storing your own high resolution characters, and 
later these can be accessed from the computer keyboard by going 
into graphics mode and pressing any of the keys A through U. By 
using the program Character Editor we can define our own 
character (character 1 will later be the letter A, character 2 will be 
B, and so on), and you'll see a display of 8 numerical values on the 
screen when this is done. In the program, line 1710 uses the USR 
function to return the address of the first byte in memory for the 
user defined character which we want to be represented by what- 
ever letter: if we want A to represent a character, in that line C 
would equal zero. Study both the listing and the section on 
Running the Program carefully. Lines 1720 to 1740 then POKE the 
aforementioned 8 numerical values into memory, so that (until we 
reset or turn the machine off), our new character is stored. 


RUNNING THE PROGRAM 


After INPUTting a character number C, which can lie in the range 0 
through 20, a border is drawn around the screen and the display 
grid drawn in the middle. Using previous routines a high resolution 
cursor is displayed, and, again as before, pressing keys 5, 6, 7 or 8 
moves the cursor around the grid. At any of the squares on the 
grid, pressing A will add a point to the display, pressing D will 
delete a point, and pressing N will start everything up again. At any 
time when you've pressed either A or D, our character data values 
are updated, and a 'life size' representation of the character 
displayed on the screen, by the line 1710 to 1800. 


PROGRAM STRUCTURE 


60-70 set colours 

125 draw border round screen using subroutine at 2000 
130-150 input character number 

160 draw border round screen using subroutine at 2000 
280 draw grid using subroutine at 1300 

290 position cursor by subroutine at 555 


310-392 await appropriate key press 
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410-445 
510-550 
710-730 
740 


910-930 
940 


check cursor within grid 

draw cursor 

add point to character 

recalculate character value, print them out again and 
redraw character using subroutine at 1500 

delete point from character 

recalculate character value, print them out again and 
redraw character using subroutine at 1500 


1310-1450 display grid, character values and character numbers 
1510-1680 calculate character values and display them on screen 
1710-1750 POKE new values into memory and display character on 


screen 


2000-2060 border drawing subroutine 
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| CHARACTER چو‎ - 6 


110 


1 REM CHARACTER EDITOR 
2 T E SEES 3 ج 3 چ‎ 3 + XR GR X GR 3 X X جن‎ RR 


3 RE 
ia REM this program allows the 


gasy creation and display 

20 REM of user definable chara 
6 6۲ 5 。 

aa REM 

4@ REM 

Sa REM set colours 

s5 REM 

eo INK Q 

FQ PAPER ? 

SS REM 
glee REM input and set up parane 
ers 

2145 REM 

110 LET x=38: LET u= 

120 DIM c رچ)‎ 

125 CLS : GO SUB 2022 

138 PRINT AT 28,6; "Input charac 
ter number "j 

140 INPUT c: PRINT c 

158 CLS 

160 GO SUB 2000 

208 GO SUB 1300 

299 GO TO SSA 

2004 REM keyboard input 

378 TE INKEY 

$="" THEN GO TO 3 
320 LET xo=x: LET Yo 二 村 ui 
ہیر‎ IF INKEYS="a" THEN GO TO 70 
ae IF INKEYS="d" THEN GO TQ SA 
3 F INKEYS="S" THE ZA 
RE NR eq que LET uan 
="6" THEN LET = 

1: GO TQ 480 BESE 
370 IF INKEYS="?7" THEN LET yey- 
i: GO TO 488 

3288 IF XINKEY S$="S" THEN LET x=x+ 
1: GO TO ٥ 
9ئ‎ IF INKEYS="n" THEN GO TO ie 
39a2 GO TO 300 

395 REM 

4004 REM check cursor within ari 
425 REM 

4148 IF x<14 THEN LET x210 

428 IF x»417 THEN LET x=17 

430 IF y«6 THEN LET u-6& 

$40 IF yo13 THEN LET u=13 

495 REM 

SAN REM draw cursor 

RT LET xczsxox3: LET yc=([23-yo) 
Ei 
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=b 
— 
N 


PLOT INVERSE i;xce2.uca4 
DRAW INVERSE 1;4,Q 
PLOT INVERSE 1;xC+4,yc+2 
ER INVERSE 1,6€,4 


LET xc=x#8: LET yc=(21-y) =Š 
PLOT xc+2.uc+4i 

DRAW 34,0 

PLOT xc+é,YeC+2 

DRAW a, 

GO TO Bea 


REN | 
REM add paint to character 
REM 


LET q=x+225239+ (32%y) 
IF PEEK iq =1 THEN GO TO 3 


IF PEEK (Q1 =8 THEN GO TO 36 
POKE 3,10 

LET pz 

GO SUS 2 


GO TO 300 
REM deiete point from chara 


LET QQ=x+225826+ (32 FU! 
IF PEEK (q1 =Së5 THEN GO TO = 


POKE 4,56 
LET p=1 

GO SUB 1508 
GO TO sea 
REM disptay 


9r id 
FOR 9=64 TO 128 STEP a 


PLOT 80,9 

DRAN 64,0 

NEXT 9 

FOR 9=38 TQ 144 STEP & 
PLOT ر‎ 84 

DRAW ر‎ 64 

NEXT 9 

FOR q=1 Ta 6 

PRINT AT 245.208; c iq} 

NEXT q 

PRINT BT 28,8; “CHARACTER R 
PRINT c 

PRINT AT 5,5;CHR$ (14440) 
RETURN 


REM calculate character vat 


LET xv=%*-tx-160! 

LET Z=z2txe 

LET vsy-S 5 
IF p=1 THEN GO TO 1598 
LET ctv) =c IV? +2 

GO TO 2 

REM 


LET c(w)=c (vl —Z 


pus‏ فوقو wè‏ خز شل د شم خر 
did ABAD‏ 
ز6 000 یہ رر وہ دم ز۸ Q‏ 
05006060960 


1748 


FOR Q= TQ 

PRINT AT 945.20; " A 
PRINT AT 44—9,z20,;ciíq) 
NEXT q 

REM 

LET s=USR CHR$ (144+c) 
FOR q=1 TO S 

POKE q+(s-1) , c (q) 


NE X 
re S:/S:CUHAS (144+c) 
REM draw border around sc cre 


REM 

PLOT 2,0 

DRAW 255,0 
2,175 

DRAWN -255.0 

DRAU ۵, -175 

RETURN 
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BIG CHARACTER 
DESCRIPTION 


Where your computer scores over many of its rivals is that it has its 
own built in, high resolution commands without having to add 
various high resolution packs. The program Big Character displays 
the use of just one of those commands, namely the PLOT com- 
mand. This enables us to plot points to the full resolution of the 
computer, that is 256 pixels by 176 pixels. The routine shown here, 
in lines 220 to 270, could be used in any program where we require 
a character that has previously been defined with the use of data 
statements, to be displayed on the screen at a specified central X, Y 
coordinate. - 


RUNNING THE PROGRAM 


The data for our large character is stored in the data statements in 
lines 1000 to 1080. The first two numbers define the size of the 
character array which we will use to store the data: note that this is 
dynamically dimensioned on reading that data. Here we are storing 
the information in binary form: that is, using the digits O and 1 to 
define whether a particular pixel is to be ‘lit’ or ‘unlit’. If you hold 
the book far enough away from you, you can probably see the 
character actually drawn out by those data statements. Having 
stored all the information in the array C(X,Y), we input the 
variables XC and YC to define the central coordinate for displaying 
the character, and finally the routine in lines 220 to 270 plots out 
the character on the screen. Line 300 then sends us back to plot 
out another one, and so on. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border round screen using subroutine at 500 
120-180 set up character array from data statements 

210 input character centre coordinates 

220-270 plot character on screen 

300 back again for another go 


500-560 border drawing subroutine 
1000-1080 data statements for character 
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a 
3 


REM 
REM 
REM 
REM 


BIG CHARACTER 
£ % یی درد‎ $ < 3 ۲ AA AAA A AAS FR 


this program generates 
with 


e characters using 


REM the Plat command, 


character data 


Qo 0100 لز-‎ 
Sus OOD 


ou 
$33 ر +ہ‎ pap ys 


21 


centre 
220 FOR 


en 


REM stored in an array. 
REM 

REM set colours 

INK A 

PAPER 了 

REM 

REM draw border 

REM 

GO SUB See 

REM 


REM set up character ar 
rg Statements did 


y 
FOR j=i1i TO x 
READ 6 ز)‎ il? 
NEXT j 
NEXT i 
REM 
REM input character coordin 
and draw character 
REM 
INPLIT مو ام‎ REM character 
a s 
ro y 
‚To 
ود و‎ THEN GO TO 260 
-j C-i 


FOR Ja 
IF ctu 


=1 
2 
PLOT zi 


,0,0,1,1,1.1,0.0,0, 
QG,0,0,1,0,0,0,0,1,0,0, 
e,0,1,0,0,0,0,0,0,1,0, 
4,1,0,0,4,0,0,9,0,0,1. 


16680 


5 
o 
e 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,8,8,1.1,2,2.1.1,9,8, 
1,3,2.08,4,908,08,2,0.0,0, 
1,06,0,0,0,0,0,0,0,0,0, 
1,6,€0,0,1,06,0,1.0,0,8, 
é,1,0,0,0,1.1,0.0,0,.1, 
0,0.,1.,0,0,0,0,0,0.1.0, 
B.A,AB,1,8,Q,Q,Q,1,Q.0. 
4,,4,4,1,1,1,1,0,0,0, 
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MOVING CHARACTERS 
DESCRIPTION 


When displaying text on the screen, most people will think conven- 
tionally and assume that all text has to be displayed in straight 
lines, with all the letters being shown like the letters in this book. 
That is, we simply move across and do not bother putting 
characters sideways, upside down, or whatever. Normally this is of 
no great importance, but there are occasions when it would be 
desirable, and even necessary, to have letters displayed under- 
neath each other, diagonally sloping upwards, or indeed any way 
we wish. Take the plotting of graphs, when we would like to label 
the axes properly, perhaps following the slope of a curve for 
instance. This program, incorporating routines from some of our 
earlier high resolution programs, does just that. 


RUNNING THE PROGRAM 


Initially we input the variables X and Y to define the starting point 
for our character, which is input in line 130 as the variable C$. The 
movement increment, 5, is defined in line 2, and the character C$ 
stored as an 8 x 8 array C(J, using the computer POINT com- 
mand, in lines 155 to 180. The keyboard is then used to detect 
which way you would like the character to be moved. This should 
be familiar to you from earlier programs: pressing 5 to move left, 6 
to move down etc. More familiar routines from our high resolution 
cursor programs follow, to erase the previous character position 
and restore the screen, and to save the screen contents and plot 
the character in the new position. When you're happy with the 
characters position, pressing N will allow you to input a new one. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border round screen using subroutine at 800. 
110-180 input data and set up arrays 

210-270 input character movement from keyboard 

310-340 check character is within border 

410-480 erase previous character position and restore screen 
510-550 save screen contents at new character position 
610-680 plot character at new position 

700 go back for another go 

800-860 border drawing subroutine 
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i 


2 
3 


REM ONING CHSARCTERS 


REM ےج اچ‎ FLAS FHF F RARA 
REM 


10 REM this Program wilt move 


any displayed c 


20 


increment, 


= 


aracter 
resolution 


controt the 


h 

REM with a 
using 

REM keyboar 


DEMI‏ ون 
2 4 


Sa 
58 
ee 
7a 
75 
eu 
en 
85 
Sa 
25 
102 


rrays 


las 


ad fwè pwa fes‏ شوشم دز شإ دم 
دز شا Di MOTO & WI AV‏ 
Lo 9‏ ن9ا OS‏ ازر] 9 J‏ 


jen 
M. 
9 


175 


REM set colours 
REM 

INK A 

PAPER “2 

REM 


REM draw border around scre 


REM 
GQ SUE ۵ 
REN 


REM input data and set up a 
REM 

DIM c(8,8): 
REM 

INPUT xod 
INPUT cx 

PRINT AT 20,1; c 
LET s= 

LET xt SSS: LET yforizl—yo> 
FOR i=1 TO a 

FOR J=1 TO A 
LET 6 ) j,il=POINT 
NEXT y 

NEXT 3 

GO ro sau 


REM 
REM input character 


83 م 5 ) ھ DIN‏ 


(+3,1+8) 


m O v ë @ Ë P> 


t from keuboard 


205 


REM 

IF INKEYS$="" THEN GO 
LET xo=xf: LET ya=uF 
IF INKEY$="5" THEN L 
INKEY $="6" THEN 
INKEYS$=" 7" THEN 
INKEYSK="5S" THEN 


INKEYS$%="n" THEN 


TQ 218 
x f zx 
باء ۶ با‎ 
LET yf نے‎ 
LET xf=X 
GO TO iz 


IF LET 
IF 
IF 
IF 


REM 


REM check character if with 


in bounds 


305 
310 
329 
Sa 


120 


REM 

IF xf<8 THEN LET xf=8 

IF xS$>247 THE? LET xwf-2€7 
IF yf:8 THEN LET yVYf=a 


330 
395 
498 


Sha ET THEN LET yf=187? 
REM erase previous characte 


r position and restore screen 
REM 


+85 


osition 
— ees 


FOR i=1 TQ 8 

FOR j=zi TO & 

IF ij il =@ THEN GO TO 4 
PLOT Jj+xa,is+ya 

GO TO 470 

PLOT INVERSE 21;)J4xX06,i-s*yO 


NEXT Jj 


NEXT 1i 

REM 

REM save screen contents at 
بت‎ ee Position 


FOR i=zi TO & 
FOR 3=1 TO a 
LET ۵ ) رف‎ id POINT 


NEXT J 

NEXT 3 

REM 

REM plot character at new p 


۶۴ + و رگ (j+>x‏ 


REH 

FOR i=i TD 8 

FOR j=1 TO 8 

IF c(j,Áil=Q THEN GO TO 660 
PLOT وم در ول‎ f 


GO TO 

PLOT INVERSE رد‎ j+xf,is+yYf 
NEXT J 

NEXT i 

GO TO 200 

REM draw border around scre 


REM 
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SCALE 1 
DESCRIPTION 


The ability to scale a shape is one of the most useful in the 
computer's repertoire, and finds a home in many a program. For 
instance, Computer Aided Design would not be where it is today 
without this function. Unfortunately, your computer does not have 
a scaling command, and'hence this routine. In its most simple form 
as we present it here, scaling just involves taking an object (here 
we have a rather simplistic view of a tree!), increasing the size of 
each line that makes up the object, and plotting out our new 
drawing. What this particular program suffers from is movement of 
the object as new ones are plotted: in other words, our original 
design does not get surrounded by larger ones, or itself surrounds 
smaller ones, but just becomes part of a grand row of small, 
medium and large trees. 


RUNNING THE PROGRAM 


In line 110 we dimension our shape data arrays to contain 20 
variables each. The data comes from the statements in lines 210 to 
250, and as you can see the first number read is the number of sets 
of data statements to come: in our case 4. Dimensioning to 20 is 
just a precaution! In order, the data. statements present the 
coordinates X, Y of the start of one of the lines that make up the 
tree, and the coordinates of the end of that line. Hence, four 
statements for our four line drawing. The scaling factor S is then 
input in line 280: when S = 1 we have the original size, a number 
less than 1 is smaller, and a number greater than 1 gives us a larger 
image. Scaling factors are then calculated in lines 310 to 360, and 
our new image plotted out in lines 410 to 530, by drawing out each 
line in turn. Our usual variable DS is used for dot spacing, and you 
can specify this to be whatever you like. As pointed our earlier, this 
program suffers from not having a constant central coordinate. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border using subroutine at 800 
110-120 set up shape and scaled shape data arrays 
140-170 read data for shape 

210-250 data for shape 

280 input scaling factor 

310-360 calculate scaling 
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410-530 plot each line in turn to specified size 
600 go back for another go with a new scaling factor 
800-860 border drawing subroutine 
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90 BO 


100 


REM SCALE 1 

E 3X X X63 X 3X X X X 3 X 3 3 X $ 3£ 3 £ 3 3 X 
REM routine to change the s 
of 8 Shape in 

REM the shape data table 
REM 


REM 
REM set colours 


INK A 

PAPER 7 

REM 

REM draw border arcund scre 
REM 

GO SUR sana 

REM 

REM set up and input data r 


or scaling 
105 REM 


106 


~ 4 2n 
pou pr pa fps دم( زرا دز هو دا‎ 
()O ٥ز ہر 2 داد دا لا رکا‎ (Q 
o NJ 


0-0 VAS 


REM shape data arrays 
REM 


DIM x (201: DIM y(28): DIM u 


DIM v (20) 

REH 

REM scaled shape data array 
REM 


DIM at2020: DIM b(2B8): DIM c 


BEN d (20) 

SEL set up shape data array 
READ ni: REM number af Line 
shape 

FOR i=i TO nt 

READ x ti),yti),„utli),wi(i) 
NEXT i 

REM shape data 

REM 


DATR 4 
DATA 100,980. 180,130 


REM 
un 5: REM scaling factor 
REM do scating 


REM 

FOR c=1 TO ni 
LET ۵ ) 2 ( =x tc) == 
LET bic) =u (c) xs 
LET CC) =U (FC xs 
LET رح ) بن‎ =v [C) ss 
NEXT c 

REM 


REM draw shape 
REM 


r 

m 

m 
ا‎ X" سم سو‎ 10 Ü, r" 
nn dn Dean 4 
ہی"‎ “ae? o 

۱ 

ro J 


XH H ۱٣× H H H VIN 
s ODIO دا زا‎ 
ww 


PLOT 


N 

NEXT c 

GO TO 280: REM do again 
REM 


REM draw border around scre 


REM. 

PLOT 0,60 
DRAW 255,0 
DRAW 8,175 


٠ 


DRAW -Ó55.0 
DRAW رو‎ -125 
RETURN 
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SCALE 2 
DESCRIPTION 


Again here we are taking a shape, and scaling it in both X and Y 
directions, but with the major fault of the previous program 
rectified. This time we have a routine to correct the movement of 
the object as it is scaled, and plot everything out from a common, 
constant X,Y coordinate. Thus we have the same shape, expanded 
- in both X and Y, or indeed contracted in X and Y, all centred on the 
same coordinates. This new routine is quite a straightforward 7 line 
one (lines 310 to 350). One other difference is that our object is 
this time rather more exotic, being made up of six lines rather than 
just 4. You can of course experiment with objects that are far more 
complicated than this: just be careful about the data statements in 
lines 210 to 255, and make sure you have all the X,Y coordinates 
right, and more importantly in the right order. 


RUNNING THE PROGRAM 


As with Scale 1, we dimension our shape and scaled shape data 
arrays (lines 110 to 120), read in the shape data (lines 140 to 170), 
and give the data statements (lines 210 to 255). The scaling factor 
S is input in line 280: as before a number greater than 1 means a 
larger shape, and less than 1 means a smaller one. The illustration 
shown ranges from S = 3 down to S = 0.1. The same routines as 
previously used are here to perform the scaling and draw the 
shape. The only new one is contained in lines 310 to 350, which 
calculates the central coordinates for our larger (or smaller) object: 
these are the variables CX and CY. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border using subroutine at 800 
110-120 set up shape and scaled shape data arrays 
140-170 read data for shape 

210-255 data for shape 

280 input scaling factor 

310-350 calculate new central coordinates 

410-460 calculate scaling 

510-630 plot each line in turn to specified size 

700 go back for another go with a new scaling factor 
800-860 border drawing subroutine 
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REM 
REM 
REM 
REM 


of a shape 
R 


EH 
REH 


REH 


SCALE 2 
LELERALERE ERE ERE £ £ 3 ERE 


routine to change the S 
in 

the shape data table 
using the shapes centre 


REM set catours 

INK a 

PAPER ? 

REM 

REM draw barder around scre 
REM 

GO SUR San 

REM 

REM set up and input data f 


or scating 
S REM 


pr 
66 
0 


Phto fi pay RHEE‏ درم 
ré‏ رح دب در د زا] ۵ ن زر زر) 0*۳۰ 0۱ 
SSISNSN- ON NI“ O<‏ 


pa 
لہ‎ 
S 


200 


REM shape data arrays 
REM 


DIM x (203: DIM y (282: DIM u 
: DIM v (28) 

REM 

REM scaled shape data array 
REM 

DIM 2۵ ۸2۷۱ ۰ DIM bi2Q): DIM c 
: DIM d ) 

REM 

REM set up shape Jata array 
REM 


READ ni: REM number of tine 
shape 

FOR i=i TO ni 

READ x(i.gíir,tt(ir,wvtiJ 
NEXT i 

REM shape data 

REM 

DATA 6 

DATA 18,110,140,118 
DATA 142,118,172., 

DATA 170,90,140, 70 

DATA 140,70, 1820,70 

DATA 100,70,70, So 

22.5 /08,90^,100,211àüà 
INPUT s REM scaling factor 
REM 

REM Find centre 

REM | 

LET cx=@: LET cy=8 

FOR c=1 0 nt 

LET CX=ExX+x (C) +u (C) 

LET CY=CY»Y (C) ۱ (C) 

NEXT 


Ç 
LET cx=c%xwx. (@xn ۰ 


(2*n LA‏ یا عد یں 
do scaling‏ 


n 
06 ۳۲ 
~ flv omms || 
f f r? f pe 
هة‎ "as Sas? ہے"‎ 
H H H H 
Annn 
c MEN 
+ + ++ 3 
=, om, wa, yen, PP 
mnan 
C X Ç x 
pins 
< G£ X 
gun, JOA gen, eu, 
nano 
Vah "ef s s 
a “um af “un? 
sk se sh He 
wu 


w shape 


m 

m 

4 

a‏ 0-۳ 017 سم XX r=‏ جیا 

- 
O 
3 
a 


X ap n nx mv | 


` DO BU HAEN I QU 
nn ۰ Ban 


ZU 
XXD 
4 

f 


NEXT c 
EEG 228: REM do again 
REM draw border around scre 
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STRETCH 1 
DESCRIPTION 


Stretching, although on the surface the same thing as scaling, is in 
fact a very different animal. Scaling merely produces a larger or 
smaller image of our original object, based either around the same 
or a different central coordinate. Stretching, on the other hand, 
does not necessarily change every line of our object to the same 
extent, but ideally we do want to stick to the same central 
coordinates. You can see in the illustrations here that we have a 
normal image, one stretched in the X axis, and one stretched in the 
Y axis. With the program being written the way that it has, you can 
combine stretching in both X and Y axes, without having to use the 
same stretching factor for each one. 


RUNNING THE PROGRAM 


Until we reach line 280 the program follows the same lines as our 
earlier Scale 2 program. That is, we set up our shape and scaled 
shape data arrays (lines 110 to 120), and read in the data in lines 210 
to 255 by the routine in lines 140 and 170. You will note that we are 
using the same object as last time, that is, a six sided figure. Line 
280 lets us input the scaling factors SX and SY in the X and Y axes, 
and these are later used in lines 410 and 460 to calculate the scaling 
and stretching figures. Before and after that we find the central 
coordinates of our object (lines 310 to 350), and actually plot the 
figure out (lines 510 to 630) one line at a time. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border using subroutine at 800 
110-120 set up shape and scaled shape data arrays 
140-170 read data for shape 

210-255 data for shape 

280 input scaling factors 

310-350 calculate new central coordinates 

410-460 calculate scaling 

510-630 plot each line in turn to specified size 

700 go back for another go with a new scaling factor 
800-860 border drawing subroutine 
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STRETCH 1 
% X $ % 39 £ X X X X: 3 £ £ x X £ X x LLL x چو‎ 


routine to stretch or c 
hange the scate of a shape in i 

28 RE the shape data table. I 
t uses the 

30 REM shapes centre and diffe 
rential X,Y scaling factors. 

40 REM 


sa 


REM set colours 

INK 

PAPER 7 

REM 

REM draw border around scre 
REM 

GC SUB Sea 

REM 

REM set up and input data ۶ 


or scaling 
REM 


ies E 

106 REM shape data arrays 

147” REM 

118 DIM x(20): DIM y (203: DIM u 
(281: DIM viza 

115 REM | 
116 REH scated shape data array 
5 

117 REM | 

128 DIM 3120): DIM b(20): DIM c 
igi: DIM dize» 

125 REM 

130 REM set up shape data array 
135 REM 

144 READ nti REM number af tine 
£ in shape 

158 FOR isi TO ni 

168 READ xii pytli ulii v(i? 
178 NEXT i 

204 REN shape data 

2@S REM 

2148 DATA 6 

116 ر 14 , ۵۵ 2 1 ر 1۷۵ DATA‏ 228 

2230 DATA 24۵ , 2 2 0۵ ,ر372‎ 96 

235 DATA 272 ر ۵90 ر‎ 148, ZO 

248 DATA ۵0 , 2۵ , 2000 za 

250 DATR ae ر 2۵ ر‎ 7A, AB 

255 DATA 0 , 9 ioo, 1 

260 EM 

288 INPUT sx,sy: REM scaling fa 
ctars in X and Y axis 

290 REM ۱ 

sad REM find centre 

3085 RE 

Sie LET cx=@: LET با‎ 

328% FOR c=1 TO ni 

west LET cx=ctx+x (C) tute) 

335 LET CY=CY+Y (ci + (C) 


135 


342 


136 


NEXT c 
LET cx =cxvr (yr Û? 
LET cy=cy (2:11) 


REM da scating and stretchi 
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NEXT c 
GO TO 260: REM do again 
REM 


REM draw border around scre 


REM 

PLOT 0.0 
DRAW 255,0 
RAW 8,175 
DRAW -255,0 
DRAW @,-175 

RETURN 


STRETCH 2 
DESCRIPTION 


The Stretch 1 program as described is an extremely useful one, but 
alas it is not without its limitations. Although we can stretch 
images in both X and Y directions, one thing which we do not have 
control over is the angle of stretching. At present, everything is 
going at ninety degree angles. What if, as is very common in 
Computer Aided Design, and indeed other fields, we want to 
stretch something at, say, 37 degrees to the X axis? The routine in 
lines 410 to 650 in this program performs just that function. | will 
not go into the mathematical detail here, many excellent books 
have been written on the subject, but will simply say that it works! 


RUNNING THE PROGRAM 


As in previous programs, we first of all set up the shape and scaled 
shape data arrays before reading in the actual data itself from lines 

210 to 240. This time we revert to a much simpler shape, that of a 
. rectangle. In line 280 we again input the scaling factors in the X and 
Y axes, and in line 290 we input AS, the angle of stretching. This is 
the angle by which we will evaluate our shape above the X axis. In 
other words, if AS is equal to 45 degrees, as it is in the illustration, 
the line joining the two corners of the rectangle will be at 45 
degrees to the X axis. After calculating the centre of the newly 
formed shape, the scaling, stretching and rotating routine in lines 
410 to 650 comes into effect. As you can see this is quite 
complicated, and | do not intend to go into any detail. This book is 
designed to help you with graphics on the computer, not to give 
a thesis on mathematical theory! 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border using routine at 1000 

110-120 dimension shape and scaled shape data arrays 
140-170 read shape data 

210-240 shape data statements 


280 input scaling factors in X and Y axis 
285 input angle of rotation 
286 convert degrees to radians 


310-350 calculate centre coordinates 
410-650 perform scaling, stretching and rotation calculations 
710-830 draw new shape line by line 
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900 go back for another go 
1000-1060 border drawing subroutine 
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REM STRETCH 2 
BES 3X 3 3 3 3 3 3 $ X3 X3 N 3 3 ER 3 $ 3 + 
18 REH routine to stretch or c 
mange the scale of a shape in 
2 REM the shape data takte. X 
t uses the 
SA REM shapes centre and diffe 
rential X.Y Scaling factors 
42 REM plus an angle af ratati 
an atang which stretching takes 
4 REN Place. 


5 REM set catours 
sa INK a 

70 PAPER 7 

7S REM 

80 REM draw border around scre 


Br 


S REN 
se GO SUB 1608 
REM 
100 REM set up and input data f 
or 5 6 5۵ ۲ 3 
1 5 REM 
186 REM shape data arrays 
REM 


DIM x (20): DIM vV(2Q): DIM u 
> DIM vi2a) 
REM 


REM scaled shape data array 


a 
© 
~j 


REM 

DIM a (20): DIN bt2@): DIM c 
: DIM d i20) 

REM 


REM set up shape data array 
REM 


READ nt: REM number of line 
shape 

FOR i=1 TO ۱ 

READ xfi, yti? util yti) 
NEXT i 


REM shape data 
REM 
DATA 4 


DATA 38۵ , 1286 , 15838 , 6 
DATR 15۵ , 120, 158 , ۵ 
DATA 15 ر‎ ۵۵ , 180, 

PEAR 2 ثات‎ , 908 , 188 , 12 


En 

INPUT sx,sy: REM scaling fa 
Ctors in X and Y axis 

255 INPUT as: REM angle of stre 
tchina 

286 LET as دهد‎ #3. 134159-120 

290 REN 

JA REM find centre 

385 REN 
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31889 LET cx-0: LET بات‎ 

3208 FOR c=i TO ni 

330 LET EX=CX+XiC) +u (C) 

335 LET cys=cy+yic?} +v fc? 

340 NEXT c 

348 LET CX=Cx,si2 ant) 

350 LET cy=cyr ) 2 ۲۱ L) 

395 REM 

300 REM do scaling and stretchi 
na 

4Q5 REM 

418 FOR i=i TO ni 

428 LET M GY 

430 LET yà1zyíi)-cwu 

440 LET fz(X1xCOS (as) +y1xSIN í 
a5 ١ ١ ¥5 يا‎ 

450 LET 9=i-XI1IFSIN (as) + 1 5ع‎ 
(38)) #SX 
LET x2zfxCOS (a5) -9+SIN (as 

470 LET atil=xa-+cx 

eka LET y2=f3+SIN (asl +49#COS (as 
491^ LET bil =y2+cy 

LET xi=u (ti) -‏ تک 

S3@ LET Ygil=v (il- 

52080 LET f=1x21*C0S (as) +YI#+SIN 
ası)xs 

SIA LET g=(-xI#SIN (asl +Yy1*- COS 
۲ 5 5 ( ( ¥5 x 

Q5 LET x2-FxCOS íiías)-grx53IrN tas 
5580 LET cCtil=x2+cx 

9 LET ye=Fe5SIN (3513139 #+C0S (az. 
S70 LET dtilsye+cu 

858 NEXT i 

720 REM draw shape 

7@S REM 

710 FOR c=zi TO ni 

720 LET ds=1 

730 LET pzctc32)-at(c3 

740 LET qzdí(c3)-bíc) 

750 LET r=50R I[pxp+3%9) 

760 LET lx-p-r 

T70 LET ي- لا‎ ۳٣ 

"G6 FOR i=@ TO r STEP ds 

790 LET X=zatc) +i ا ٭‎ X 

Sue LET u=b(c) +i + نا ا‎ 

aieo PLOT x.y 

S20 NEXT i 

538 NEXT c I 

spe GO TO 288 REM de again 

REM‏ 5 9 و 

1000 REM draw border around scre 
en 

1005 


REM 
PLOT 0,e 
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1228 DRAW 255,0 
1030 DRAN 8,175 
3848 DRAW -255,0 
10509 DRAW B,-175 
14966 RETURN 


142 


0۸۷۱/۸۸۵0۱۸۷ ANY ONLIVIOQ 
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ROTATE 
DESCRIPTION 


In this section we introduce the concept of a transformation 
matrix. A transformation matrix is essentially a set of equations 
which are applied to a coordinate point in order to move it to the 
required position. | shall not endeavour to derive these equations 
(there are many excellent books on the subject), but simply show 
how they can be used to produce the required effects. The 
rotational transformation matrix consists of four equations and 
these are calculated in lines 250 to 280. Lines 290-300 use the 
values from this matrix to calculate the new coordinates of the 
point. 

Rotation requires the movement of a point in a circle around a 
fixed axis on the screen. By making the point the end coordinate of 
a line, a line or a shape can be rotated around this axis. The axis of 
rotation can lie anywhere on the screen, it may even lie on the 
same coordinates as the point to be rotated. In this program you 
will notice that the small cross is being rotated in a clockwise 
direction around an axis thereby describing a circle, note that the 
point erase — lines 310 to 317 — were removed to produce the 
diagram. Counterclockwise rotation can be produced by using a 
negative angle of rotation. 


RUNNING THE PROGRAM 


The program requires the input of five parameters. These five are 
the X and Y coordinates of the centre of rotation, the X and Y 
coordinates of the point to be rotated and the angle of rotation. 
The angle of rotation is in degrees and is the angle between two 
lines drawn from the centre of rotation to the 0 degree or three 
o'clock position and from the centre to the new point position. It 
should be noted that the FOR NEXT loop in lines 235 and 410 are 
inserted to generate a sequence of 360 rotational plot points, these 
should be removed to plot a single rotation. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border around screen using subroutine at 500 
110 input coordinates for centre of rotation 

120 input coordinates for point to be plotted 

130 input angle of rotation 

150 set up array for rotation matrix 

144 


convert rotation angle from degrees to radians 
initialise variables 

plot point at centre of rotation 

set start angle at 0 

loop to plot 365 consecutive rotations 
add angle of rotation to start angle 
calculate rotational transform matrix 
calculate new coordinate point position 
erase previous rotated point position 

plot new rotated point 

loop to rotate again by the rotation angle 
border drawing subroutine 
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1 
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i8 REM this proaram 


REM ROTATE 


Ben 3 $ 3 ور یں‎ £ 3 3: FEAR XE X £$ 3 GE 


rotates a 


point around 


20 


screen 
2 


( م یح 
2 


REM a central point on the 
REM 

REM 

REM set colours 

REM 

INK ۵ 

PAPER 7 

REM 

REM draw border around sere 
REM 

GO SUB 588 

REM 

REM input parameters 

INPUT xc,yt: REM coordinate 
centre of rotation 

INPUT xp.YP: REM coordinate 


point to be rotsted 
INPUT ar: REM anate af rata 


m 12,2) 
ratate paint 


af 2۵۲ #3. 14 1 59۵ م‎ 12 2 
XP=XPp: LET yr=up 

: LET yo=ur 

XP =-(XC-XP): LÈT yp=-(y 


r 
àzcOs 
3 “SIN 
1A=-SIN 
J zCOS 

xP +m 12,1) +YP+s (2,32 


=gC +xXP ۵ 11,2) +YP sm (2 , = 


INVERSE i;xo-2,yo 
INVERSE 1;4,0 
INVERSE i1i;xo,uo-p 
INVERSE 1;0,4 
"WELLE 


xr.yur-2 
a 


‚4 
LET xa=xf: 
LET xr=x: 
NEXT q 
GO TO 3100 


fu ly ja در‎ A سر‎ (Q 


tr) 

tr) 
ir‘ 

(r) 


Hmmm Ji it li 


x 


LET yosour 
LET yrzy 


REM draw border around Scr& 
PLOT @,@ 


RETURN 
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ROTATE 2 
DESCRIPTION 


In the same way that the program ROTATE rotated a point around 
a fixed axis on the screen we can also rotate a line about a fixed 
axis. This is not difficult since one is simply rotating two points — 
the two end coordinates of the line. )ا‎ should be noted that in this 
program the line start and end coordinates are both input as 
relative coordinates. A relative coordinate means that the co- 
ordinate is not the normal screen coordinate but a value which is 
relative to the coordinate of the axis point. If the axis is set at the 
absolute screen coordinates of X = 100 and Y = 80 then to have 
the start of the line at the absolute screen coordinates of X = 150 
and Y = 100 gives us a relative coordinate value of X = 50 and 
Y = 20. From this we can see that the relative coordinates are 
obtained by this calculation: 


coordinate of point — axis coordinate 
RUNNING THE PROGRAM 


The program requires the input of seven parameters, they are as 
follows. The X and Y coordinates of the central axis around which 
the line is rotated. This is followed by the X and Y coordinates of 
the start of the line and then the X and Y coordinates of the end of 
the line, all four values being relative coordinates with respect to 
the centre of rotation. The last parameter value is the angle of 
rotation, this is in degrees and is the angle between two lines 
drawn from the centre of rotation to the original dot position and 
from the centre to the new dot position. Note that the FOR NEXT 
loop in lines 235 and 500 have been inserted to generate a sequence 
of fifty rotations of the increment angle. These should be removed 
to plot a single rotation. 


PROGRAM STRUCTURE 


60-70 set colours 

90 draw border around screen using subroutine at 700 
110 input coordinates for centre of rotation 

120 input relative coordinates for start of line 

125 input relative coordinates for end of line 

130 input angle of rotation 

150 set up array for rotation matrix 

210 convert angle to radians 

148 


215 


230 

235 

240 
250-2 
290-340 
360-460 


700-760 


initialise variables 

plot point at centre of rotation 

set start angle at zero 

loop to plot 50 consecutive rotation increments 
add angle of rotation to start angle 

calculate rotational transform matrix 

calculate new coordinate point positions 

routine to draw line between the two end points 
loop to next rotation increment 

border drawing subroutine 
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start coordinates 
end coordinates 


REM ROTATE > 
EE $ ۲ + + Xxx xk tx 3 ERE RE RELE REE 


REM this proacam rotates a 
de ae 


EM a centrai point on the 


REM set colour 
REM 


INK & 

PRPER 7 

REM 

REM draw barder around 5 ۲۱۲ 
REM 

GQ SUB 700 

REM 

REM input parameters 

INPUT xc.yc: REM Coordinate 


centre oF fatatian 
INPUT xp.up: REM relative ا‎ 


w 


INPUT t 


xq uq: REN relative 


INPUT ar: REM angle of rota 
DIN 0 4 2 سم ر‎ 

REM 

REM rotate line 

REM 

LET 2c zêr #3. 14159; 3 


LEY Xf =xP: LET yr =p 

PLOT xc, یا‎ 

LET rz 

FOR zzi TQ 58 

LET r=zr+ar 

LET mt1,1)=C0O3S tr: 

LET mf1,21=SIN (rf) 

LET 8۵ ۲2 رل ر‎ =-SIN tr) 

LET mi(i2,2)=COS (r2) 

LET x=xC+XP xm (1, 11 +up xm <(2Ə , 2 
LET Y=yYC+xpemt1,2) +up +n (2 , Z 
LET xb=x: LET yb=y 

LET x=xc+xqxm (1, 11 +uq xm (2,1 
LET u=uc+xq=*m (1,27 کباب‎ xp ) , Z 
LET xe=x LET ue=y 

REM 

REM draw line 

REM 

LET ds=3 

LET p=xe-xb 

LET q=ye-yb 

LET rt=SQR ¿(p xp +q *3) 
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88 LET L¿x=p r L 

31180 LET (y=3 «fl 

420 FOR i=@ TO ri STEP ds 
430 LET x=xb+ixlx 

442 LET y=yb+ix1y 

454 PLOT x,y 
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ROTATE 3 
DESCRIPTION 


In the same way that the program ROTATE 2 rotated a line around 
a fixed axis on the screen we can also rotate a shape about a fixed 
axis. This is not difficult since one is simply rotating a set of lines, 
each line being specified by the two end coordinates of the line. 
The data for the shape is stored in a shape table, this is stored in 
one of three arrays. The other two arrays are used to store the data 
for the rotated shape and the previous rotation — this is required 
by the routine which erases the previous rotation. The data is 
stored as the beginning X and Y coordinate of a line followed by 
the end X and Y coordinates of the same line, these four values are 
then repeated for each line in the shape. In this program the shape 
data is obtained from a set of data statements — lines 710 to 740. 
The set of displays which accompany this program show how by 
varying the centre of rotation the shape is rotated in different ways, 
depending on whether the rotational centre lies within the shape, 
directly on a line of axis through the shape or to one side of the 
` shape, also shown is that the lines used to draw the shape can have 
a variable dot spacing. 


RUNNING THE PROGRAM 


All the parameters required by the program are stored directly 
within the program. The X and Y coordinates of the central axis 
around which the shape is rotated is stored as the variables xc and 
yc in line 255. The number of lines in the shape is stored as variable 
nl in line 240. The X and Y coordinates of the start and end of each 
line are stored as data statements in lines 710 to 740. The last 
parameter value is the angle of rotation, this is in degrees and is 
stored as the variable ar in line 296. 

Note: that the FOR NEXT loop in lines 300 and 620 have been 
inserted to generate a sequence of fifty rotations of the increment 
angle. These should be removed to plot a single rotation. When 
plotting shapes with more than 20 lines then the size of the shape 
data arrays should be increased accordingly. 


PROGRAM STRUCTURE 


60-70 set colours 
90 draw border around screen using subroutine at 900 
110 set up array for rotation matrix 


120-150 matrix for original data shape 
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matrix for erased shape data 

matrix for displayed shape data 

initialise variables and constants 

number of lines in shape 

plot point at centre of rotation 

load coordinate data into original shape matrix 
set start angle to zero 

loop to plot 50 consecutive rotation increments 
add angle of rotation to start angle 

calculate rotational transform matrix 

calculate new coordinate point positions 

jump to routine to draw lines 

put displayed shape data into erased shape matrix 
loop to next rotation increment 

shape table data 

border drawing subroutine 


1000-1140 subroutine to draw shape 
2000-2140 subroutine to erase shape 
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REM ROTATE 3‏ 1 
کے ¥ ¥ چو چو چرچ HER‏ ےی رخ چپ 3 REM 3  *‏ = 


18 REM Program to rotate a 2 D 
object about 
28 REM a point on the screen. 
34 REM 
4A REM 
SA REM set colours 
REM 
50 INK 8 
70 PAPER 7 
REM 
aa REM draw border around scre 
S REM 
aa GO SUB Geo 
35 REM 
18 REM arrays for data transfo 


106 REM rotation matrix 
DIM m1 (2,2) 
REM originat shape data 


DIM x (209) 
DIM y (20) 


DIM U (20) 
DIM v (29) 


3 
m 
x 
"m 
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shape data 
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ni ۵ 
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ayed shape data 


lA 
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268 FOR n=l TO ni 


224 READ XxXi(n) لام‎ (n) لام‎ (n.u ر‎ (n) 
ase LET ۶ in? en (OS: LET Bini sy 4 
3 LET stnmisutn}: LET tin) =v (n) 


398 NEXT n 
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LET ar=45: LET ے۶‎ 
Eon sr=ar 3 141597180 
Een a=1 TO 52 


SEM r=zr+ar 

t up rotation matrix 
=COS ir) 

=5IN {in 

=-SIN tir? 

=sCOS (rà) 


shape ar dearees 
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EM 
3520 GO SUB 2000 
REM 
SSA GO SUS iauaa 
RE 


EM 
708 EE shape data 


785 

7108 DATA 120,20,122, 130 
720 DATA 188, 158 ر‎ ۵9 138 
730 DATA چو‎ , 1 309, 118,130 
740 DATA 110, 138, 180, 150 
898 REM 

200 REM draw border around scre 
en 

as REM 

910 PLOT 0,0 

220 DRAW 255,0 

230 DRAW 98,175 

940 DRAW -255,0 
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DRAW 8,-175 
RETURN 
REM 


REM 


PLOT 


LET 
PLOT 217 


draw shape 
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MOVE 
DESCRIPTION 


The application of the transformation matrix can be expanded to 
cover all manipulation of a shape, not just rotation but also 
movement (known as translation) and scaling. The primary pur- 
pose of this program is to show how a shape can be moved about 
the screen, but it also imbodies the capability of scaling and rota- 
tion. The transformation matrix consists of six quotations. These 
equations are stored in lines 3000 to 3100. Notice that equations 1 
to 4 consist of the rotational transform equation multiplied by a 
scaling factor, equations 5 and 6 do the movement by adding an 
offset to the shape position. The program can display any two 
dimensional shapes. This shape can be moved to any part of the 
screen, rotated through 360 degrees and stretched in either X or Y 
axis or both. 


RUNNING THE PROGRAM 


There are no input parameter values since they are all within the 
program as LET statements. There are six parameter values which 
control the movement, rotation or scaling of the shape, these are 
set in lines 120 to 160. Lines 120 and 130 contain the X and Y 
scaling factors — full size = 1, half size = .5 etc. The rotational 
angle of the shape is stored as the variable rz in line 140, note that 
since this angle must be in radians it is multiplied by 3.14159/180. 
The movement of the shape in the X and Y axis is stored in lines 
150 and 160, and is the number of pixels in either direction from the 
original coordinates stored in the shape table. 


The object shape is stored in a shape table. This table consists 
simply of the X and Y coordinates of the end of each line 
comprising the shape. It should be noted that there are one more 
pair of coordinates than there are lines in the shape, the number of 
lines in the shape is stored as the variable np as the first value in the 
data table. The data table is stored as data statements in lines 1110 
to 1130. Try designing your own shapes using graph paper and 
then entering the new values into the data statements. 


PROGRAM STRUCTURE 
90 draw border around screen using subroutine at 400 
110 set up transform matrix array 


120 - 130 X and Y scaling factors 
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140 angle of shape rotation in radians 

150 - 160 X and Y axis movement of shape from initial position 

210 - 260 main program execution loop 

400 - 460 border drawing subroutine 

1000-1050 load shape data into arrays — arrays X and Y contain 
the original shape data — arrays U and V contain the 
transformed shape data 

1110-1130 data statements containing shape data — line 110 
contains the number of lines in the shape 

2000-2080 find the centre of the shape 

3000-3100 perform transformation matrix calculations 

4000-4070 performs the trasformation on each coordinate point 
point within the shape table 

5000-5220 draws the shape using the transformed data in the 
arrays U and V, note lines 5120 and 5130 check that 
the shape does not fall outside the screen area 
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1 REM MQUE 
2 REM + + سج ےج مج جرج اج‎ GR کے‎ ¥ 


a EM 

10 REM this program uses matri 
x transformation to 

20 REM move, rotate, or scale 
3 two dimensionat shape 

30 REM 

da REM 

sa REM 

88 REM draw border 

98 GO SUB 6 

95 REM 

JAB REM set up constants variab 
LES and arrays 

108 RE 


M 
118 DIM 3a (3, 33 
120 LET sx=1 
130 LET sy=1i 
140 LET rz=84xr3.14152-18M 
158 LET tx=-sn 
16Q LET ty=2 


200 REM main program Loop 


REM 
218 GO SUB 1900 
228 GO SUB 0 


~ IS 


3 5 ع‎ shape 


10290 DIM X(NAP+1): DIM y tpp>+132: D 
IM u(ne+1): DIM vinp+i) 

las FOR i=1 TO np+1 

1049 READ xti),y(i) 

+8058 NEX i 

2 0 5 6۵ REM 

11004 REM shape data 

1108 REM 

11180 DATA S 

21280 DATA leo). leo, lise 120 ， 2725 , 75 
1130 DATA 3159,52, 2 0۵ , 5۵ , 1 0 , Qe 
1208080 RETURN 

12995 REM 

SABA REM Find centre af shape 
20085 REM 

2 6 1 6۵ LET cx=4: LET هد با‎ 
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FOR c=-1 TO n 
LET CX=EN-+xi 
LET cu=cyg+»yi 
NEXT C 

LET cx=cx “np 
LET cy=cyrnp 
RETURN 


REM 


P 
C à 
ci 


set transformsiian matr 


a‏ مگ 
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AX‏ 
ME‏ 
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ak 出 
AD 
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me‏ 
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Om tw gy 
VIV WB 
Sn یب‎ 
HM 
uw 
cx Ww 
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F) m 
DI 
No, 
‘at 9n 


yen,‏ حسم 
Mi‏ سر لا 


را ا 
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` “x 
rt جس‎ 


draw shape 


Q=i TO np 
xk =u (Q1: LET uh=w (31 


e =U (Q+1l): LET ye=v q+] 


XE-Xh 
ید ع فده‎ b. 
SUR — (Ppxp+axaor 
= ور‎ 

Ly =G Tf 

i zt TO r 
x =N b +i + lx 
Y=Yhk+i*1y 
XES THEN LET 
IF Y>147S THEN LET 
PLOT Xoi 
NEXT j 
NEXT q 
RETURN 


x 
P 
pè 
La 


TT 
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THREE DIMENSIONAL SHAPE 1 
DESCRIPTION 


The application of the transformation matrix can be expanded 
further to cover the generation of three dimensional shapes — it 
should be noted that they are displayed two dimensionally but 
optically appear to represent three dimensional objects. To do this 
simply requires the addition of an extra axis — the Z axis — to the X 
and Y axis used in a two dimensional transformation matrix. The 
transformation matrix consists of sixteen equations, they are 
stored in lines 3000 to 3190. ۱ shall not attempt to explain the 
mathematics, for those interested | would suggest one of the text 
books on the subject — “Principles of Interactive Graphics' by 
Newman and Sproul. 


RUNNING THE PROGRAM 


There are no input parameter values since they are all within the 
program as LET statements. There are nine parameter values 
which control the movement, rotation or scaling of the shape, 
these are set in lines 120 to 200. Lines 120 and 140 contain the X, Y 
and Z scaling factors — full size = 1, half size = .5 etc. The 
rotational angle of the shape in either one of the three axis are 
stored in lines 180 to 200, note that since these angles must be in 
radians they are multiplied by 3.14159/180. The movement of the 
shape in the X,Y and Z axis is stored in lines 150 to 170, and is the 
number of pixels in either direction from the original coordinates 
stored in the shape table. 


The object shape is stored in a shape table. This table consists of 
two parts the first is simply of the X,Y and Z coordinates, of each 
corner coordinate comprising the shape. The second part is a table 
of connections of pairs of points between which a line should be 
drawn. The number of edges in the shape is stored as the variable 
ne and the number of coordinate points between which the edges 
are connected is stored as variable “np”. The coordinate table is 
stored as data statements in lines 1210 to 1220, and the connection 
table in lines 1310 to 1330. 


PROGRAM STRUCTURE 


70 draw border around screen using subroutine at 900 
100-110 setup transform matrix arrays 
120-140 X,Y andZ scaling factors 
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150-170 X,Y and Z axis movement of shape from initial position 

180-200 angle of X,Y and Z axis rotation in radians 

410-450 ` main program execution loop 

900-960 border drawing subroutine 

1000-1050 load shape data into arrays — arrays S contains the 
coordinate table of the original shape — array E 
contains the line connection data — array M contains 
the transformed coordinate data 

1200-1220 data statements containing coordinate shape data as 
X, Y and Z for each corner point, note that the first 
three values comprise the coordinates for point 1, the 
cond three for point 2 etc 

2000-2240 draw the shape 

3000-3160 perform transformation matrix calculations 

3200-3350 set up scaling and translation matrix 

4000-4080 performs the transformation on each coordinate 
point within the shape table 

5000-5090 find centre of shape 
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REM SD DRAWING 1‏ 1 
عو کو 2 X 3 X‏ 3 $ عو عو رج جع عو + + ید z REM‏ 


= M 

18 REM a three dimensional sha 
P€ is drawn by this Program 
REM the rotation position a 
nd scale of the abject 

Ge REM can ke changed to give 
different viewing angtes. 

4 REM 


o0 REM 
66 REM draw border around scre 


ly 
y 


REM 
ZO GO SUB 988 
REM 
REM set up constants variab 
les and arrays 
95 REM 


120 LET sx=.S 


130 LET sy=.3 

140 LET sz=.38 

150 LET tx=i 

168 LET ty=1 

170 LET tz=1 

180 LET ۳ 2۵ 0 43. 14 1 5۵ ۸ 0 
190 LET لام‎ 242۵ 3۰ 14 1 5۵ + 1 
200 LET رک 0۵ 5 حول‎ 2 4 59 1 
4080 REM main program loop 
410 GO SUB 2 

420 GO SUB 5000 


430 GO SUB 3000 


ne 
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11340 NEXT n 

1150 FOR e=#=1 TO 

1260 READ eteée,i1l, ls 2) 

1170 NEXT e 

1195 REM 

1200 REM x,y,z point coordinates 
1208 REM 

1210 DATA 09,0,200,200,0, 220,292, 
2,9,0,9, 

1220 DATA 0,200,209, #00 ,202,20@, 
200,200,0, 2,200; a 

295 EM 

1300 REM connection data 

1305 REM 

1318 DATA 1,2,2,3,23,4,4,1 

1320 DATA 511,26, 4,8,7?,3 

135350 DATA 6€.5,5.58.25,2,.7.£8 

13904080 RETURN 

1395 EM 

SAAR REM draw shape 

2005 REM 

2020 FOR e=1 TO ne 

2030 LET v1zeie,1) 

2040 LET v2-eíe, 21 

2245 IF ۷ و‎ THÉN GO TO 2240 
2050 LET xbzmí1,v13 

2060 LET yb=m(2,v2} 

2078 LET xe=mt1,v2)> 

2 ۵566 LET ye=mt2,v2) 

20900 LET ds=i 

2100 LET P=xe-xh 

2110 LET Qzye-uh 

2128 LET r=SOR (P ep +Q ۱ 

21590 LET ixsprr 

2140 LET LULu=q.r 

2150 FOR is@ TO fr STEP ds 

2168 LET x=xb+ixRlxY 

2174 LET y=yb+ixty 

21605 IF x255 THEN GO TO 2238 
2130 IF y>175 THEN GO TO 2250 
¿200 IF x«à THEN GO TO 2230 
2210 IF YYA THEN GO TO 2230 
2224 PLOT x.y 

2230 NEXT i 

2248 NEXT e 

2394 RETURN 

2925 REM 

3000 REN set transformation mat: 
ix 

GODS REM 

3810 LET ati,l) COS (ry) *COS (rz 
os LET 3(1,212CO058 iry? #5IN (rz 
030 LET 311,3)=-SIN try) 

JAAQ LET afi,d4)=a 

SOS LET 3 (2.1) کم‎ {rxıxi-SIN t 
rZ?) + لت‎ irx) SIN (ry) #COS (rz) 
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S10 LET p=@: 
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THREE DIMENSIONAL SHAPE 2 
DESCRIPTION 


This program is identical to the program THREE DIMENSIONAL 
SHAPE 1 except that an additional subroutine has been added to 
remove hidden lines. Hidden lines are those lines which lie out of 
sight of the viewer and are hidden behind the front surfaces. By 
removing these hidden lines the shape of the object becomes much 
clearer. The subroutine which checks for hidden lines is located 
between line numbers 6000 and 6140. 


RUNNING THE PROGRAM 

The parameters and data tables required by this program are the 
same as those used for the program THREE DIMENSIONAL 
SHAPE 1, consult this program for information. Note that the con- 
nection table now describes object faces rather than lines. 


PROGRAM STRUCTURE 


Lines 1 to 5995 are identical to THREE DIMENSIONAL SHAPE 1 
(consult for details). 


| 6000-6140 subroutine to check for hidden surfaces 


173 





174 


1 REM 3D DRAWING 2 
2 BEI: Yoox $ 3 3 3 $ $ X EGRE GRO GR RB OX X 9 و ساپ‎ 


18 REM a three dimensional sha 
Pe is drawn bu this program 

28 REM the rotation position a 
ne با اب‎ of the object 


EM can be changed i 
different viewing angles.) ió 


48 REM the program incorpora 
3 routine to remove kidaan ee 


S@ REM 
608 REM draw border around scre 


ka 
es 


85 REH 

7@ GO SUB 89 

ae REM ۱ 
چو‎ REM set up constants ۷ 8۵۲ 3 ۵ 


tes and arrays 
REM 


95 E 
100 DIM a (4,4) 
110 DIM bi4, 4) 
115 DIM c (3) 
117 DIM d (3) 
i28 LET sx=.3 
130 LET sy=.3 
14Q LET sz=.23 
150 LET tx=i 
16Q LET ty=1 
2170 LET tz=i 
160 LET rx=-44x3.112159-18%0 
198 LET fry=20Q+3. 141597158 
200 LET rz=50#3. 1415971808 
400 REM main Program Loop 
4 1 8 GO SUB leo? 


995 RE 

1008 REM initialise shape 
18005 REM 

1010 LET np= 

1820 LET ne= 

la38 LET nf= 

1440 DIM SIG,API 

1758 DIM einf,ne,2! 
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DIM ۸۵ ) مر‎ 

REM 

FOR n=i TO np 

READ S(1,Nn),S(2,Nn).s (3.n) 
NEXT n 
FOR fel 
FOR e=1 TO ne 

READ eif,e,i),eif,e,2) 
NEXT e 

NEXT f 

REM 


S RIS XYZ point coordinates 
DATA ۵ ر 200 ر 20 , ۵ ر 2۵ ر 202 ر ۵ ر‎ 
DATA e, "Soa Son .p200,200,200, 


209 ر‎ 9۵ , ۵ , 28 
REM 


REM connection data 
RE 
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NEXT e 
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THREE DIMENSIONAL SHAPE 3 
DESCRIPTION 


This program is identical to the program THREE DIMENSIONAL 
SHAPE 1 except that additional subroutines have been added to 
remove hidden lines, and to shade the faces of the displayed 
surfaces in respect of incedent light coming from above in the ۷ 
axis. By shading the surfaces the viewer becomes fully aware of 
the shape of the three dimensional object as well as adding realism 
to the display. 


RUNNING THE PROGRAM 


The parameters and data tables required by this program are the 
same as those used for the program THREE DIMENSIONAL 
SHAPE 2 (consult this program for information). 


PROGRAM STRUCTURE 


Lines 1 to 5995 are identical to THREE DIMENSIONAL SHAPE 1 
(consult for details). 

6000-6140 subroutine to check for hidden surfaces 

7000-7330 shade the displayed surfaces 
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l REN 3D DRAWING 3 
= BEN 3 3 $£ 3 $ $ £ £ £ 3 $ £ LE LE RL $£ 3 ۳ 3 
180 REH a three dimensional sha 
Pe is drawn by this program - 
at REM the rotation position a 
na scale of the object ۱ 
SO REM can be changed to give 
different viewipa angles. 
40 REM the Program incorporate 
s a routine ta renove hidden lin 


es 

SÉ REM the displayed faces are 
899ئ۳‎ in respect of intident ti 

S2 REM coming from above in th 
e Y axis. 

55 EM 
و‎ REM draw border around SCre 

65 REM 

ZO GO SUB ۵ 

“aa REM 

a REM set up constants vars ah 
les anon aus 


95 RE 

4 6۵ DIM 3(4,4) 
1198 DIM b(4,4) 
115 DIM c (3) 
117 DIM d (32 
120 LET sx=.3 
138 LET sy=.3 
14Q LET sz=.3 
150 LET tx=2 
160 LET با‎ 
278 LET tz=i 
180 LET rxz4Q9x3.23141 ee 


2040 LET rz-50x3.141 
300 REM main progra 
418 GO SUB 1000 


4 ہت 

190 LET ۳ با‎ 22۵ ۶ 5. 14 1 59 7 1 6 
Sari 
m Lo 
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1019 LET np=8 
1828 LET ne=4 

1030 LET nf=6 

1040 DIM st3.np) 

1050 DIM eínt,ne.2) 

1060 DIM w (3,np) 

1180 REM 

1118 FOR n=1 TO np 

112€ READ $(1,0n021.5 (p ni s (3,01 
1130 NEXT n 

1140 FOR fz=1 TO nf 

1150 FOR e=1 TO ne 

1160 READ e(r,e,1).,e6(f.e,2) 

1170 NEXT e 

1180 NEXT f 

12195 REM 

1200 REM Xyz point coordinates 
1205 REM 

1210 DATA 9۵۰09 , 299 , 2906 , 0 , 290 , 209 , 
0,0,0,0,0 

1220 BATA @,200,206, 200,200,200, 
200,200,0,0.200.0 

1295 REM 

33500 REM connection data 

1305 REM 

1310 DATA 1,2,2.3.5.4,4.1 

1328 DATA 5,1,1,4,4,8,8.5 

6 رت 2 رج رج رج رج ر6 DATA‏ 1330 
DATA 2,6,6.7,727,3.3,2‏ 1340 

1350 DATA 1,5.5,6.6,2,2.1 

15360 DAT 47.,7,8,8,94,4.3 

1900 RETURN 

1995 REM 

2000 REM draw shape 

20085 REM 


2028 FOR e=1 TO ne 


22930 LET ۱۷ 1 2 ) ۴ , ۶ ر‎ 1) 

20940 LET v2=eif,e,2) 

2445 IF vi=a THEN GO TO 2240 
2058 LET xb=m (l .w 1) 

2069 LET ub-mí2,v2) 

2070 LET xe=mi1.v2) 

2050 LET ue=m(2.v21 

2490 LET ds=1 

2100 LET p=xe-xb 

2110 LET g=ye-ub 

2120 LET rz5GR (Ppxp+3%9) 
2130 LET |x=pr 

2140 LET ۱ کج‎ r 

2150 FOR iz TO rf STEP ds 
2168 LET x=xb+ixlx 

2178 LET u=ub+i+tiu 

2130 IF x>255 THEN GO TO 2230 
21290 IF y»2175 THEN GO TO 2230 
2208 IF x«8 THEN GO TO 22308 
2218 IF Ja THEN GO TO 2230 
2224 PLOT x.u 

23080 NEXT i 

248 NEXT e 


— 
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29008 RETURN 

2995 REM 

ee REM set transformation matr 
X 

3005 REM 

ze LET a(1,13zCQS (ry ascas (rz 
اد‎ LET ati.2) =COS iru) SIM trz 
3030 LET ali1. 3) =-SIN (ru) 

30404 LET ati,4).=- 

3050 LET at2,i1) =COS irx} ti-SIN 6 
CZ) +SIN (FX) SIN (ru) +COS (rez) 
Sato LET a1(2,2)=C035 trx) «COS (rz 
J+SIN (rx) SIN fry) #SIN (rz) 
“Malt LET atè2,3) =SIN (rx) +COS (ry 
3080 LET at2,4)= 

3:090 LET a(s3, 1) =(-SIN (Ax)I +(—-SI 
N (rz)Y)+COS trx) HSIN (ru) +COS ir 
3188 LET a(3,2)=-SIN (rx) COS tr 
2 ( «COS (rz) #SIN (ru) SIN trz) 
سوچ‎ at3,3) COS irx3xC05S (ru 
3120 LET a1t3,4)= 

2130 LET 3a(4,1) = 

140 LET at4,2)= 

315€ LET a4, 3)} = 

315608 LET a14,4)2=2 

3195 REM 

3208 REM set up scaling and tran 
station matrix 

3205 REM 

2210 LET b11,1)=s35xxa(1,1) 

“2209 LET pb(1,21=3x*x3 (1,21 

2230 LET b(1,3)=3xxxa(1,3) 

3240 REM 

32589 LET b(2,1)==yrx*a (2,1) 

3260 LET bi2,2)=syxa(2,2) 

3270 LET b(2.3) =syr3 (2,3) 

3250 REM 

3290 LET b(S,1) 257a (3,13 

2320 REM 

2330 LET b(4,13 =x 

3340 LET b(4,2)=tu 

33508 LET b(4,3) =tz 

2986 RETURN 

„895 REM 

4000 REM perform translation 

4 2 6٩5 REM 

¿4010 FOR q=i TQ np 

40185 REM 

4920 LET xt=s (1,9) 一 XC 

4838 LET yt=s (2,4913 -uc 

194-8 LET 2t=s (3,9) -zc 


GQ SUB ۵2 
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4045 


REM 


3 , 1۱ یاج‎ + 
va zè) ا لیا(‎ 
ES 3) +u t 


[AH UH زز سر‎ 
w N AE = X 
+ ۰ bk 
۲۳ + ۲ + i+ 
sme, quA OM, w, pon, w 
P. X Px fx 
w. بس‎ on ph 
D) PO ake ضر‎ ae 
enger 


NEXT q 
RETURN 
RE 


M 
REM 
REM 


find centraid 


P=: LET Gg=@: LET r=@ 
i=i TO np 


v 
۱ 
=D 
+ 
th 
#3 
jan 
"a 
| 
w 


- 
۴۱ ۴۱ ۳۰ ۱۱ J Í 
"49 9 ++ 


RE 
REM hidden surface check 
REM 


FOR Fei Ta nr 
FOR j=] TO 3 
LET C(jl=m (J. e tf, 1 مر‎ 2) -m (j, 


etf, 1,2123) 


e ۲۴,2 ر‎ ۱ 
Sasa NEXT j 

BER LET pl=c (2) رح ع- رجح وج‎ xd (23 
SAZA LET p2=c (3) #d (1) -C (11 xzdƏ (31 
SARA LET p3=c (1) xd 2۸۱-2 (2) sd 111 
51۵9 LET q25S=1-m (2,8 (f,1,2)) 
511۵ LET 93=50M-m13,e tF,1,221) 
5128 LET w=p 1 + ٩ 1 292 + پت3‎ 3 
56139 IF w>=0 THEN GO SUB 2080 
6140 NEXT F 
55۵9 RETURN 
6395 REM 
7000 REM shading 
7005 REM 
7eie LET ri=M {l,etf,2,122ı -pti,et 
7036 LET r2= (2,€ (£,2,11)-m12,e í 
7836 LET r3=mi3,etf,2.12) -mia,et 
7040 LET wisSQR (risr1l+r2ar2sranx 
rs. 
7050, LET f4=M (ALE (£,4,123-mita,et 
2856 LET rS=m (Q,LE 1f,4,12121-m12,e1 
ZAFÈ LET r6=m (BLE 1f,4,1121-m(3,€( 
؟‎ 1 ۱ 





oe LET w2=50R (r4xr4.+ır 5#7’5+76% 

4 

TOSS LET ۳ 2 2 2 ام‎ 2 

7100 LET r2=r2,swA1 

7110 LET r3i=r3/u1 

جج ئن ۶ 4 عبت 4 ۶ LET‏ 7320 

7 1 39 LET rS=rS-u2 

7140 LET r6=r6sw2 

"150 LET uszsrSsra&-risre& 

TASA IF u42—.u THEN RETURN 

de = 

7160 IF uU»—.7 AND u<c-.5 THEN LET 
ds=4 
= = 

22-2 r u>=-.3 AND دا‎ 4 -. THEN LET 
=Z =. 

rese IF لژ مر دنا‎ ANE و یپ دهد‎ THEN LET 
s= = 

(2an IF u>r.d AND u:.3 THEN LET d 
= 

5 IF u>.3 AND ۱۱ +, 5 THEN LET d 

= کے 

Lus IF u».5 AND u«.7 THEN LET d 

7250 IF u».7 AND u<.A THEN LET d 

7260 IF u».9 THEN LET ds=1 

7274 FOR i=i TO wi STEP ds 

7280 FOR q=1 TO w2 STEP as 

ae LET x= (1,8(f,1,1)) +i چ + 1 رب‎ +¥ 

re LET u=m (2,8(f,1,1)) +i #r72+4+ 

7318 PLOT x,u 

7320 NEXT q 

7330 NEXT i 

7900 RETURN 
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THREE DIMENSIONAL SHAPE 4 
DESCRIPTION 


Perspective is that property of viewing an object which makes 
objects appear smaller the further away they are from the viewer. 
When looking down a long pole the pole appears to be tapered, but 
our understanding of the real world tells us that this is not so. Thus 
to add realism to a three dimensional computer display it is often 
desirable to add perspective to the display, this program is identical 
to the program THREE DIMENSIONAL SHAPE 1 except that an 
additional subroutine has been added to remove hidden lines, and 
the drawing routine has been modified to incorporate the perspec- 
tive algorithm. 


RUNNING THE PROGRAM 


The parameters and data tables required by this program are the 
same as those used for the program THREE DIMENSIONAL 
SHAPE 2, consult this program for information. 


PROGRAM STRUCTURE 


Lines 1 to 5995 are identical to THREE DIMENSIONAL SHAPE 1, 
(consult for details) except for the following: 


2000-2240 shape drawing routine incorporating perspective 


algorithm in lines 2030 to 2045 
6000-6140 subroutine to check for hidden surfaces 
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1 REM SD DRANING 4 
5 SEM 3: 3X 3 3X 3X X X X03 X 3X X 0X X REE 


AG REM a three dimensional sha» 
PE is drawn by this program 

20 REM the rotation position a 
Md scale of the object 

SA REM Can be changed ta give 
different viewing angtès. 

40 REM the program incorporate 
= 8 routine to remove hidden lir 
e 


s 
58 REM the object is displayed 
"E Rn PESAS 


66 REM draw border around scre 


83 REN 
YO GO SUB 0۵ 
se REM 


SQ REM set up constants variar 
85 ری ہن‎ YE 


IH ۱۱ ا٢‎ AI v 
dl دا‎ | pa و‎ ç IIS 
Hp. pr 
05 P 


p 
e 
9 
r 
m 
اک‎ 
3 زا ۱۶ مہ مہ مم بت بح ب"‎ Gm tw 
* ik se 


AS N K — — — = 


۲۶۰۱۱ H 1۱ 


2 
VORU 


910 PLOT @,@ 
220 DRAW 255 ر‎ 
250 DRAN 0,2175 
240 DRAW -255,0 
-175 





1 9 


fo 


9 TI] des شل‎ Jos qu fo font فا ما‎ fot مو شل‎ ys TE شا‎ baska fwè foo فو شل‎ fad نس شل‎ Jwè مر‎ 
MHIP 0ا‎ WOW III لیا‎ RN TUTO AJ fo ka دز دز دم مز مز‎ kos مز‎ 
9ا برا ج5ا‎ QY] P دا را زرا‎ G 2 10 G) HO G دا‎ 05100 ATA f» را‎ 
G ال 9ک 9 5 9 5 ۵ بت از:‎ Y 010100000903 


fÚ دم‎ DIO ال یہ‎ [[ P Whe 
9998999029999 


fu tulo fo io TO DD TO TO TO tuan tu 
TO 10 AY $ مز مز مر مر در‎ fwè en s مز‎ 


a, 
20 
R 


0 
ki 
= 
3 saf 
Don 
` WS 
~4 و ہو‎ 
- MM = 
a 
lU 


H H O ۷ | 
` 3 


"m 


(2,n),stö,n) 


"oo 30 VIV 
wa MD 


44 
Poa 


f self; eR) 


% 


SEL X,9,2 Point coordinates 
DATA 06.,0,200,200,0,200,200, 


2.6 
DATA 0۵ , 20 , 299 , 290 , 299 , 209 ر‎ 
28 6 D 


AE cannection data 


“(m (R , vdd - DR 


> mpi 


“(13,421 “30 
Q 2240 


Gi 
> >>> زا‎ m- m- 


N) fi) bò pa 
ہے؟ ہے ہے ہے‎ | 


ST 
TO r STEP ds 
Filo 
4+ 5 £ LU 

THEN GO TO 2230 
پ‎ < 15 THEN GO TO 2238 
IF x:x0 THEN GO TO 2238 
IF u«à THEN GO TO 22308 
PLOT x.u 


pU 
m 
4 
VIE X kas سم سم‎ m Q U اع‎ KCK DE DER 


HH 
IM 
x 
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GOU LLOOLLL'LWN 
DIO سم‎ TO po pap po jwè ps dA 
ڑ) 3 0 ز9ا بت چا دم‎ AN) 9 


irz)? +C 


+ 
0 
0 

mi 


9 و 39 99 ۸) 9 + ]لا 5ہ 


se 


at 
at 


ty 
gen, 


Doo o-oo .0 0 


J 


— qM gen qM, jen, تمس‎ 


RETU 
REM 


cx 0 D Turu rr woo roo OU uuu ONG 


p ہے‎ 


t transformation matr 

1,13zCOS (FUN #COS (rz 

1,2) =-COS (ry)+SIN (rz 

1,3) =-SIN (ry) 

3,41 = 

2,1)zCOS (rx) #(-SIN í 

x) #5SIN (ry) #CQS (rz) 

2.21) =COS (frx3s»COS (rz 

SIN (ry) SIN (rz) 

2,3) SIN (rx»sCQOS (ru 

2,4) =@ 

=(-SIN (rx3})2#(-SZ‏ (1 رت 
(rx) ASIN. (ry) CoS fr‏ 

3,2) =-SIN (rx)xCOS tr 

#SIN (ru) SIN (rz) 

3,33=005 (rx) COS try 

3,4) = l 

= ( 21 م 4 

4,21 2 

4,3) = 

4,4) = 

t up scaling and tran 

rix 

12,1) =sx#a (1,13 

1,2) =+sx#a(1,2) 

1,33 =sx*a(1,3) 

2,1) s5y ža (2,1)? 

2,2) =SYi+3 (2,2) 

a (2,3)‏ پا کے )2,3 

3,1)=:=2x3(3,1) 

3,2) =SZTa (3,2) 

3.3 کے‎ 2 ra (RRA 

4,1) =tx 

4,2) =ty 

4,3) =t Z 

rfO ۲ ۸8 translation 

1 TQ np 





4040 LET Z 
4045 REM 


u 
7 
` 
t 


جس 
on, I an,‏ 
E e‏ 
Me‏ 
tur‏ 
+ 
iC‏ 
rt‏ 


¿21 +U t 


eden 


Cd 


an mt‏ ایس 
QNO tJ G Uy ü‏ 

"e WW‏ ید 
Qu Iu P‏ 

* یاس‎ M Na] 
$ Ns ۳٢ + ۴۴ 

U + + ty + ۷ 
REXRXRX n 
e £959 w^ 

(J) ake TO sk ba sk 
reger 


fe 
9 
0 
9 
r 

۰ m‘ 
- 
3 

در ۳ نا ۳ زرا چا 


xbí2, NE +Z t 
BE 


saco REM find centroid 
SARIQ LET pz?) LET q=A: LET r=a 


SAN UM ہے اتا‎ 


“OU 444 


Sasa LET C(CQji)=mijij.etrf,1 213-miJj. 
و ری ج8‎ 113 £ ¿Le j. 


594 ۵ LET dij) =m (. e ۲۶ رم‎ 1۱ ۱ —m tj 
&(f,2,21 14 á er 
5 0508 NEXT j 

30560 LET pl=c (2) xd (3) -C(3) zd (2) 
Sera ET p2=cC (3) sd 142 —c t3? 3d tux 
5080 LET pS=c (1) ad (2) -c (2) dti) 
span LET JI=-IZA-m (1,Elf,1,211 
giaa LET g2=-8@-m (2 e (f,1i,2li 
5110 LET q3=SAa-m(S3,e (F, 1.21) 
al2mR LET W=PILFQI+I+P2F32>P3+g2 
SISA IF w>=@ THEN GO SUB 2000 
6140 NEXT F 

ESAB RETURN 
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INDEX 


Arc 1, 72 
Attribute Memory, 72 


Barchart, 39, 45 
Big Character, 114 
Block, 42 

Border, 28 


Cad, 5 

Character Editor, 108 
Circle, 66 

Colour Commands, 8 
Colour Ram, 12 
Computer Art, 5 


Disk 1, 75 
Disk 2, 78 


Ellipse, 69 


Fan, 22 


Graph, 88 
Graph 2, 88, 91 
Graphics Characters, 100 


Hidden Lines, 173 
High Resolution, 26 
High Resolution Com- 
mands, 26 | 
Hi-Res Cursor, 102 
Hi-Res Cursor 2, 106 


Interpolate, 95 
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Line, 48 
Line 2, 48, 51 


Map, 16 
Move, 160 
Moving Characters, 718 


Perspective, 186 
Piechart, 84 
Polygon 1, 55 


Rainbow, 9 
Random Colours, 74 
Rectangle 1, 30 
Rectangle 2, 33 
Rectangle 3. 36 
Rectangle 4, 52 
Rectangle 5, 62 
Rotate, 744 

Rotate 2, 148 
Rotate 3, 153 


Scale 1, 124 
Scale 2, 128 
Screen Map, 101 
Segment, 81 
Shading, 179 
Stretch 1, 132 
Stretch 2, 137 


Three Dimension Graph, 92 
Three Dimension 1, 166 
Three Dimension 2, 173 
Three Dimension 3, 179 
Three Dimension 4, 186 


iger tn 
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RAG ETA Fr S ۱‏ شوت دی 
ا Nick ki‏ 


A dazzling display of color graphics in 45 complete programs for the 
Timex Sinclair 2048 and 2068 microcomputers. The author clearly 
explains the theory behind high-resolution-graphics plotting by presenting 
practical, concrete programming examples. Applications of these 
graphics displays range from art to games to educational simulations 
in math, science, and business. All program listings have been tested 

- and are annotated for easy reference and modification. Use them as is 
or change them to suit your own specific needs! 

Programs include color plotting; drawing maps, rainbows, geometric 
figures, pie charts, and bar and line graphs; character and shape design; 
and moving figures on the screen. The programs build to reveal the 
techniques of three-dimensional drawing, including adding perspective, 
shading, and color to achieve stunning results in high-resolution graphics. 


TIMEX SINCLAIR” BASIC. 
Joseph Charles 


Intended for beginning users of Timex Sinclair microcomputers, this 
book takes you from the first steps of programming to writing your own 
programs for business, engineering, household and games applications, 
and more. | 

Learn how to edit programs; program with the use of number and 
character strings, functions, and subroutines; and learn how to modify 
programs written for other computers so that they will run on your 
computer. 
_ Timex Sinclair BASIC includes scores of actual program 0 to 
help you understand and apply the concepts, various exercises to help 
you learn and gain confidence on the keyboard, and solutions to selected 
exercises so that you can check your overall progress on the computer. 
#2101-4, 192 pages. 
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